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Ein BASIC-Buch für Alle 


Hier liegt ein BASIC-Einführungsbuch vor Ihnen, wie Sie es sich schon 
lange gewünscht haben. Eine leicht verständliche und praktische Ein- 
führung mit vielen interessanten Beispielen. 


Das Buch ATARI-BASIC eignet sich grundsätzlich für jeden Personal- 
computer mit BASIC heute auf dem Markt. Es geht jedoch am Ende 
des Buches auf die speziellen Farb-, Musik- und Ein-/Ausgabebefehle 
der ATARI 400 und ATARI 800 Personalcomputer ein. 


Der Verfasser Bob Albrecht gehört zu den Pionieren der Personal- 
computerbewegung und ist als Lehrer für die Programmsprache BASIC 
weltweit anerkannt. 


Holzkirchen, 
Herbst 1981 Winfried Hofacker 


Inhaltsverzeichnis 


Ein Wort an den Leser...... «css ereeeerenne rennen nn en nen 1 
Kapitel 1 Ihr ATARI Personal-Computer.... user eeereenee 5 
Kapitel 2 Dieersten Schritte ... esse reeeeenneeeenennnnnn 19 
Kapitel 3 Zuordnungs-Statements, gespeicherte Programme, 
Verzweigung...- «ser rreerersennn nennen nn nen 53 
Kapitel 4 Entscheidungen mit IF-THEN-Statements ........-- 101 
Kapitel 5 READ und DATA arbeiten zusammen ..... +++...» 149 
Kapitel 6 FOR-NEXT-Schleifen........ ern eereeerennne 187 
Kapitel 7 Indizierte Variable .....c222 ser enenneeeenennnne 219 
Kapitel 8 Doppelt-indizierte Variable.........ur rs eeeeenen- 267 
Kapitel 9 String-Variable und String-Funktionen........-..+: 311 
Kapitel 10 Farb-Graphik und Ton .......r-eeereenen nennen 343 
Abschluss-Test......-:.-vs.:-sooss sone nee nenn nenn 381 
Anhang BASIC-Funktion.......urneeeereenernenn nn nn 391 
Arithmetische Funktionen .......s22esereer nennen 391 
Trigonometrische Funktionen. ...... seen renerenes 392 
String-Funktion. ..... «ser rereeernen nern nr nen 393 
ASCII-Zeichen-Code +. ir... 0: »u so war 00 wanan or nun nie ne 394 
Fehler-Mitteilungen. .......=.«sssrserenennee nennen nn ne 396 
VO Baal: 5 wa a en ann na ee nn a ir Ka 397 
Übersichtstabelle — Farbbefehle in den Graphikstufen Obis 11... 401 
Input Output — Eingabe Ausgaben ........ «rer ereeeeerennne 407 


Ein Wort an den Leser 


Die Entwicklung integrierter Schaltungen und die Miniaturisierung in 
der Elektronik haben es ermöglicht, daß man inzwischen einen voll- 
ständigen Computer mit allen Peripheriegeräten, bzw. dem erforder- 
lichen Zubehör für weniger als DM 2.000,— kaufen kann. Ein Computer 
für Anwendungen zu Hause, im Computer-Club, in der Schule oder im 
Büro liegt damit in der gleichen Preisklasse wie preiswerte Komponen- 
ten für Hifi-Anlagen. Diese Computer, unter denen sich auch die Geräte 
von ATARI befinden, verwenden die Computer-Sprache BASIC. Ziel 
dieses Buches ist es, Ihnen alle Kenntnisse zu vermitteln, um selbst- 
ständig Programme unter Verwendung von BASIC schreiben zu können, 
und zwar speziell für ATARI-Computer. 


BASIC wurde ursprünglich am Dartmouth College von John Kemeny 
und Thomas Kurtz entwickelt. Sie erkannten die Notwendigkeit für 
eine Allzweck-Computer-Sprache, die sich besonders für Programmier- 
Anfänger mit sehr unterschiedlicher Vorbildung eignet. BASIC, ein 
Kunstwort das entstanden ist aus den Anfangsbuchstaben von ''Be- 
ginners All-pupose Symbolic Instruction Code‘, wurde ursprünglich 
als eine einfache Sprache konzipiert, die sich in wenigen Stunden 
erlernen ließ. Durch die im Laufe der Jahre erfolgten Verbesserungen 
kann der Lernvorgang jetzt einige Tage in Anspruch nehmen, aber Sie 
werden feststellen, daß Sie nahezu alle Probleme und Aufgabenstellungen 
mit BASIC lösen können. 


Wenn Sie schon einen ATARI-Computer zur Verfügung haben, verge- 
wissern Sie sich bitte, daß BASIC bereits in den Speicher des Computers 
eingesetzt ist, damit er die in BASIC gegebenen Instruktionen versteht. 
Es liegt in der Natur des Fortschritts, Wege zur Verbesserung bereits 
vorhandener Dinge zu finden. BASIC stellt in dieser Hinsicht keine Aus- 
nahme dar. Daher werden Sie wahrscheinlich feststellen, daß Ihr BASIC 
über eine Reihe zusätzlicher Statements (Befehle), sowie einige Weiter- 
entwicklungen verfügt, die in dem 8k-ATARI-BASIC nicht vorhanden 
waren, das wir beim Schreiben dieses Buches verwendet haben. Daher 
möchten wir Sie dazu ermutigen, selbst zu experimentieren und, falls 


Sie einmal nicht weiter kommen sollten, befragen Sie Ihr BASIC- 
Manual. 


Beachten Sie bitte, daß dieses Buch auch über einen Anhang mit 
BASIC-Funktionen verfügt. Etwa ab Kapitel 3 oder 4 sollten Sie be- 
ginnen, im Funktions-Anhang und in Ihrem BASIC-Manual zu blättern, 
um ein größeres Verständnis für die Möglichkeiten Ihres Computers zu 
bekommen. Dabei können Sie auch lernen, wie Sie Ihre Programme auf 
einem Kassetten-Rekorder speichern (CSAVE), sofern Sie ein System 
mit einem derartigen Gerät gekauft bzw. sich entschlossen haben, Ihren 
Computer durch einen Rekorder zu erweitern. Sobald Sie nämlich dazu 
übergehen, längere Programme zu schreiben, die im Laufe der Zeit 
weiterentwickelt und modifiziert werden, erspart es viel Zeit bei der 
Eingabe über die Tastatur, wenn man über eine frühere Version des 
Programms verfügt. 


Beachten Sie auch den Anhang mit den Fehler-Mitteilungen. Glauben 
Sie uns, Sie werden so oft wie wir darauf zurückgreifen um einen 
Hinweis darauf zu finden, was Sie falsch eingegeben haben oder wo Sie 
Ihre Logik gelegentlich im Stich gelassen hat. Aber auch in diesem Fall 
gilt die alte Regel: ’'Nicht aufgeben, weitermachen!‘ Daher versuchen 
Sie es einfach noch einmal. 


Jetzt wollen wir uns damit befassen, wie dieses Buch benutzt werden 
sollte und dann können wir damit beginnen, BASIC zu lernen! 


Wie dieses Buch benutzt werden sollte 


Dieses Buch ist für den Selbstunterricht geschrieben worden, so daß Sie 
aktiv in das Erlernen von ATARI BASIC einbezogen werden. Der Stoff 
ist in kurze, numerierte Abschnitte unterteilt, die als ”’Frames’’ be- 
zeichnet werden. Jeder dieser Abschnitte vermittelt Ihnen irgendeine 
neue Erkenntnis über ATARI BASIC und stellt Ihnen eine Frage, bzw. 
fordert Sie auf, ein Programm zu schreiben. Die jeweils korrekten 
Antworten stehen unterhalb der gestrichelten Linien. Für ein möglichst 
effektives Lernen empfehlen wir Ihnen, Sie mit einem Stück Karton 
solange abzudecken, bis Sie Ihre eigene Antwort geschrieben haben. 


Sie werden am besten lernen, wenn Sie die Antworten tatsächlich hin- 
schreiben und die Programme auf Ihrem ATARI-Computer auspro- 
bieren. Die Fragen sind sehr sorgfältig unter dem Gesichtspunkt ausge- 
wählt worden, Ihre Aufmerksamkeit auf wichtige Punkte in den 


Beispielen und Erklärungen zu lenken und Ihnen dabei zu helfen, das 
anzuwenden, was erklärt oder demonstriert wurde. 


Jedes Kapitel beginnt mit einer Liste der Lernziele, die Ihnen angibt, 
was Sie nach Durcharbeiten dieses Kapitels dazugelernt haben. Sofern 
Sie bereits gewisse Vorkenntnisse in BASIC haben und Ihnen die Lern- 
ziele für dieses Kapitel vertraut erscheinen, arbeiten Sie zunächst den 
Eigentest am Ende des entsprechenden Kapitels durch, um festzu- 
stellen, wo Sie mit dem Lesen des Buches beginnen sollten. Ist Ihr Test 
gut ausgefallen, dann beschäftigen Sie sich nur mit den Abschnitten, die 
zu den Fragen angegeben sind, die Sie nicht lösen konnten. Sofern Sie 
viele Fragen nicht beantworten konnten, beginnen Sie mit der Arbeit 
am Anfang dieses Kapitels. 


Der Eigentest kann auch zur Wiederholung des im vorangegangenen 
Kapitels vermittelten Stoffes verwendet werden. Sie können Ihre 
Kenntnisse direkt nach Abschluß des Kapitels prüfen. Oder aber Sie 
machen nach dem Lesen eines Kapitels eine Pause und benutzen den 
Eigentest zur Wiederholung, bevor Sie mit dem nächsten Kapitel 
beginnen. 


Am Endes des Buches ist ein Abschluß-Eigentest vorgesehen, der es 
Ihnen ermöglicht, Ihre gesamten Kenntnisse in ATARI BASIC zu über- 
prüfen. 


Dieses Buch reicht zwar völlig zum Erlernen von ATARI BASIC aus, 
aber alles was Sie lernen wird solange blanke Theorie bleiben, bis Sie 
tatsächlich selbst an einem Computer-Terminal sitzen und Ihre Kennt- 
nisse der Computer-Sprache und der Programmier-Technik anwenden. 
Daher möchten wir Ihnen unbedingt empfehlen, dieses Buch zusammen 
mit einem ATARI Computer durchzuarbeiten. BASIC wird leichter 
zu erlernen und verständlicher, - auch wenn Sie nur gelegentlich 
Zugang zu einem Computer haben - , da Sie dann die Beispiele und 
Übungen ausprobieren, Modifikationen durchführen und Ihre eigenen 
Programme entwickeln können. Jetzt sind Sie bereit, sich selbst beizu- 
bringen, wie man ATARI BASIC nutzt. 


NOTIZEN 


Kapitel 1 
Ihr ATARI Personal-Computer 


Dieses Kapitel soll Sie mit den für Anwendungen zu Hause, im 
Computer-Club, in der Schule oder im Büro bzw. Labor geeigneten 
Personal-Computern ATARI 400 und ATARI 800 bekannt machen. 
Wenn Siedieses Kapitel beendet haben, werden Sie ausreichende Grund- 
kenntnisse über diese beiden Computer und die für Sie zur Zeit er- 
hältlichen Erweiterungs-Komponenten haben. Ebenso werden Sie in 
der Lage sein, die folgenden Worte und Ausdrücke aus der Sprache der 
Computer-Welt zu benutzen: 


Computer-Sprache 

BASIC und speziell ATARI BASIC 
CPU oder Zentraleinheit 
Keyboard oder Tastatur 
Bildschirm 

Drucker 

Programm 

Programm-Rekorder 
ROM-Kassette mit ATARI BASIC 
Betriebs-System 

ROM-Modul 

RAM-Speicher 
RAM-Speicher-Modul 
BASIC-Statements 
Zeilennummern 


Sie können dieses Buch entweder zusammen mit dem ATARI 400 oder 
dem ATARI 800 Personal-Computer-System benutzen. Der Typ 400 
besteht aus der Computer-Konsole 400, einem Keyboard mit Sensor- 
tasten, Ihrem Fernsehgerät und möglicherweise zum zusätzlichen Pro- 
gramm-Rekorder ATARI 410. Das Modell 800 verfügt über eine Schreib- 
maschinen-ähnliche Tastatur und wird komplett mit dem Kassetten- 
Rekorder geliefert. Zwischen beiden Systemen bestehen noch weitere 
Unterschiede, die von Fall zu Fall erläutert werden sollen, 


ATARI 400 





ATARI 800 





Bevor Sie weiterlesen wäre es zweckmäßig, Ihren Computer so aufzu- 
bauen, daß Sie ihn während des Lesens benutzen können. In dem 
Karton, in dem Ihr ATARI 400 oder 800 geliefert wurde, befindet sich 
auch die zugehörige Bedienungsanleitung. Diese Broschüre erläutert 
ausführlich, wie Sie Ihren Fernseher anschließen müssen, die Spannung 
für den Computer einschalten und die mitgelieferten Programm- 


Kassetten verwenden können. Das Bedienungs-Handbuch enthält auf 
wenigen Seiten eine Menge an Informationen, jedoch müssen Sie keines- 
wegs alles durchlesen. Allerdings sollten Sie Ihr System soweit vorbe- 
reiten, daß es eingeschaltet und in BASIC arbeitsfähig ist, sofern Sie 
das nicht bereits getan haben. Anschließend kehren Sie bitte wieder zur 
Lektüre dieses Buches zurück! 


Schön, daß Sie wieder da sind. Wir wollen uns jetzt etwas näher mit 
Ihrem ATARI Computer vertraut machen. Verständlicherweise zieht 
das Keyboard als erstes die Aufmerksamkeit auf sich. 


GB8B8888888B88883 
2 h) 4 5 6 7. ö >> 
0080880000393 
GS0809080088908388 
EBOGGBKHBGODBBBEES 
Fe) 


Das Tastenfeld bietet Ihnen die Möglichkeit, mit Ihrem ATARI 
Computer in Verbindung zu treten. Es wird als Eingabevorrichtung be- 
zeichnet, da Sie es dazu benutzen können, Informationen in den 
Computer einzugeben. 


1. Das Keyboard ist die Eingabevorrichtung, die es Ihnen ermöglicht, 
mit dem Computer in der Computer-Sprache ..........». in Verbin- 
dung zu treten. 


2. Derjenige Teil der Computer-Elektronik, der tatsächlich “rechnet”, 
wird als CPU oder “Zentraleinheit’’ bezeichnet. Er ist auf einer ein- 
zelnen gedruckten Schaltung unterhalb der geriffelten Abdeckung an 
der Rückseite der Konsole untergebracht. 


Ebenfalls unter dieser Abdeckung befindet sich der Speicher des 
Computers. Der erste Abschnitt dieser Speicher-Bank umfaßt den ROM- 


Modul (ROM = “Nur-Lese-Speicher‘‘) mit dem 8 k-Betriebssystem. Der 
ROM-Modul enthält ein Programm, eine Folge von Instruktionen, die 
dem Computer vorschreiben, wie er auf Mitteilungen von der Außen- 
welt zu antworten hat. Für uns sind das ROM und die darin enthaltenen 
Programme Bestandteile des Computers selbst. 


a) Rechenvorgänge erfolgen inder ... unsre eeeenernnnennn nennen 


b) Das Betriebs-System ist in einem anderen Teil der Elektronik ge- 
speichert, der die Bezeichnung ROM trägt. Diese Abkürzung bedeutet: 


rien tn an ee ee 


a) CPU (Zentraleinheit) 
b) Nur-Lese-Speicher 


3. Wir haben bereits das ‘8 k-Betriebssystem‘' kennengelernt, das dem 
Computer hilft, unsere an ihn gerichteten Instruktionen zu interpre- 
tieren. Die Bezeichnung "8 K“ stellt eine übliche Methode zur Angabe 
der Größe eines Computer-Speichers dar. Der Buchstabe K steht dabei 
für jeweils 1.000 Speicher-Bytes. ‘Byte’ ist ein weiterer Ausdruck aus 
der Computer-Sprache und bezeichnet eine einzelne Speicher-Einheit. 
Jedes Speicher-Byte kann ungefähr einen Buchstaben, eine Ziffer oder 
ein anderes Zeichen speichern, so daß 8 K ungefähr 8000 Zeichen 
aufnehmen können. 


16 K bedeutet daher eine Kapazität zum Speichern von ungefähr 
ea Ba dee Zeichen. 


4. Sowohl das Modell 400 als auch der 800 enthalten einen zweiten 
Speicher-Abschnitt mit 8 K RAM oder ‘'Schreib-Lese-Speicher‘. In 
diesem Bereich speichert der Computer Informationen, die Sie über 
die Tastatur eingeben. Wir bezeichnen den RAM-Speicher oft auch 
als Arbeitsspeicher‘. Wir können Informationen in ihn schreiben, oder 
sie mit wenigen Tastenbetätigungen löschen. 


Der RAM-Speicher unterscheidet sich vom ROM, dem ‘'Nur-Lese- 


Speicher‘. Der Computer kann den Inhalt des ROM's lesen, der ständig 
erhalten bleibt. Er kann jedoch von der Tastatur aus weder gelöscht 
noch verändert werden. 


Beantworten Sie bitte die folgenden Fragen, indem Sie entweder RAM, 
ROM oder beides einsetzen. 


a) Welcher Speicher kann gelöscht werden? ......222csoccenernun 
b) Welcher Speicher kann nicht geändert werden? .........22r2200. 


c) Welcher Speicher hat eine mit ‘8 K‘' bezeichnete Kapazität ....... 
d) Welcher Speicher nimmt die über die Tastatur eingebebenen Informa- 
TIONEN AUT? us 4: 0 rer Rat Fra Ta en 


c) RAM und ROM 
d) RAM 


5. Wenn Sie einen ATARI 800 besitzen, können Sie weitere RAM- 
Speicher-Module hinzukaufen, um den Arbeitsspeicher Ihres Computers 
zu erweitern. Bei der Benutzung dieses Buches benötigen Sie keinen zu- 
sätzlichen Speicher, aber später werden Sie vermutlich längere Pro- 
gramme schreiben wollen, die mehr RAM zur Unterbringung benötigen. 


Vergewissern Sie sich, daß Sie die ATARI-BASIC-Kassette in den zuge- 
hörigen Schacht Ihres Computers eingesteckt haben. (Folgen Sie dabei 
der Instruktionen in Ihrer Bedienungsanleitung.) Das Einsetzen der 
Kassette bedeutet für den Computer eine Vergrößerung seines Speichers 
und gibt ihm zusätzliche Informationen. Diese Kassette enthält ein 
weiteres vorprogrammiertes 8 K-ROM; unmittelbar nach dem Ein- 
setzen der Kassette weiß’ der Computer, wie ATARI BASIC "ge- 
sprochen‘’ wird. Jetzt müssen Sie ATARI BASIC erlernen, um dem 
Computer Instruktionen geben zu können. Eine Folge von einer oder 
mehr Instruktionen, die dem Computer sagt, was er tun soll, wird als 
Programm bezeichnet. Ihr Programm, bzw. Ihre Instruktionen müssen 
über das Keyboard in BASIC eingetastet werden und zwar gemäß den 


10 


Regeln von BASIC, die Sie in diesem Buch erlernen werden. Ihre 
Instruktionen, die dem Computer sagen, waser nach Ihrem Wunsch und 
gemäß den Regeln von BASIC tun soll, werdenals....... bezeichnet. 


Programm 


6. Nehmen wir einmal an, Sie tippen ein Programm in den Computer 
ein. Sobald der Computer von der Tastatur ein Zeichen erhält (wenn Sie 
mit dem Schreiben beginnen), bringt er das gleiche Zeichen auf dem 
Bildschirm zur Anzeige. Er gibt uns damit eine Darstellung der von uns 
eingegebenen Zeichen. 


Der Bildschirm des Fernsehgerätes wird daher als Ausgabe-Gerät be- 
zeichnet, da er empfängt, was wir eingeben und es unmittelbar wieder 
ausgibt. Das gibt Ihnen die Gewißheit, daß Sie auch wirklich das ein- 
gegeben haben, was Sie vorhatten. Wenn später der Computer den 
Instruktionen in Ihrem Programmen folgt, werden die Ergebnisse 
ebenfalls auf dem Bildschirm angezeigt. 


Dies ist ein weiteres Beispiel für einen Heim-Fernseher als ........ +: - 
Gerät. 


7. Sehen Sie sich nochmals das Bild des an einen Fernseher angeschlos- 
senen ATARI-Computers 400 an. 


a) Wir verwenden die Tastatur zur Eingabe von Informationen in den 
Computer. Was geschieht mit den Informationen, die wir eintippen? 


re Here ee 
er we REIT ae ar Bl Ser ie Falare DR BERRETTE 


a ER A DATE I ER EEE © 


a) Sie werden an den Computer übermittelt und anschließend auf dem 


Bildschirm dargestellt. 
b) Er bildet die Informationen auf dem Bildschirm ab. 


8. Wenn Sie einen ATARI 800 haben, verfügen Sie auch über einen 
Programm-Rekorder, den Sie in Verbindung mit Ihrem Computer 
benutzen können. Er ist einem Heim-Kassetten-Rekorder ähnlich. (Sie 
können den Kassetten-Rekorder auch zusätzlich zu Ihrem System 400 
anschaffen.) 


Der Programm-Rekorder ist ein völlig vom elektronischen Computer- 
Speicher getrenntes Speicher-Gerät. Er kann zum Aufzeichnen Ihrer 
Computer-Programme und von Informationen (die als Daten bezeichnet 
werden) wie Adreßlisten, Rezepten, Terminen, Zahlen aus Ihrem 
häuslichen Finanzplan oder Ihrem Kontostand verwendet werden. 
Sobald Sie die BASIC-Computer-Sprache gemeistert haben, werden Sie 
feststellen, wie handlich und leicht zu bedienen dieses Speichergerät ist. 
Neben Magnetband-Kassetten gibt es auch noch andere Möglichkeiten, 
Informationen und Programme außerhalb des Computers zu speichern. 


Alle derartigen externen Speicherverfahren bieten eine bequeme 
Möglichkeit, Programme und Informationen, die oft benötigt werden, 
in den Computer einzuspeisen oder zu “laden‘‘, ohne daß jedesmal der 
nicht unbeträchtliche Zeitaufwand zum Eintippen über die Tastatur er- 
forderlich wird. Magnetische Speicherplatten sind ein weiteres exter- 
nes Speicher-Medium. In diesem Buch werden jedoch nur die drei 
Haupt-Komponenten eines Computer-Systems benötigt, die wir zuvor 
besprochen haben. Dabei handelt es sich um 


einen Computer, eine Tastatur und einen Fernseh-Bildschirm. 


9. Rufen Sie sich noch einmal ins Gedächtnis zurück, was Sie in den 
Abschnitten 1 — 8 gelesen haben. Wir haben darin den ATARI-Com- 


puter beschrieben. Für unsere Zwecke sind seine wichtigsten Kompo- 
nenten: 


1)Der Computer selbst - wobei die CPU mit der zugehörigen Elek- 
tronik in der Konsole untergebracht ist. 
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2) Ein Eingabegerät - die Tastatur, die wir dazu benutzen, Infor- 
mationen in den Computer einzugeben. 


3) Ein Ausgabegerät - der Fernseh-Bildschirm, der Informationen 
darstellt, die über das Keyboard eingegeben oder vom Computer 
übermittelt wurden. 


4) BASIC - betriebsbereit im Computer installiert 


In diesem Buch werden wir Ihnen viele Programme in ATARI BASIC 
vorstellen und Ihnen helfen, das Lesen, Verstehen und Nutzen dieser 
Programme zu Ihrem eigenen Vergnügen zu erlernen. Wir werden uns 
dabei auf Anwendungen konzentrieren, von denen wir glauben, daß sie 
für Benutzer von Heim-, Schul- oder Personal-Computern von Interesse 
sein dürften. Daher stellen wir Ihnen jetzt, sozusagen zur Appetitanre- 
gung, ein Computer-Spiel vor. 


Die folgenden Zeilen, bis zum Wort RUN, sind ein Computer-Pro- 
gramm. 


100 REMARK *** DIES IST EIN EINFACHES. COMPUTER-SPIEL 

110 LET X = INT(100* RND(N))H1 ©, ..50:%. 9% 

120 PRINT a 2 

130 PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100.“ 

140 PRINT “RATEN SIE MEINE ZAHL!!!” 

150 PRINT : PRINT “IHR VERSUCH“; : INPUT G 

160 IF G ( X THEN PRINT “VERSUCHEN SIE ES MIT EINER 
GROESSEREN ZAHL.” : GOTO 150 

170 IF G ) X THEN PRINT “VERSUCHEN SIE ES MIT EINER 
KLEINEREN ZAHL.” : GOTO 150 

180 IF G=X THEN PRINT “GRATULIERE!!! SIE HABEN MEINE 
ZAHL ERRATEN.” : GOTO 110 


} ar ı$ 


RUN 


Was Sie auf dem Bildschirm sehen können, lesen Sie anschließend. Die 
jeweiligen, vom Benutzer geratenen Zahlen, müssen über die Tastatur 
eingegeben werden. 


ICH DENKE MIR EINE ZAHL ZWISCHEN 1. UND 100. 
RATEN SIE MEINE ZAHL!!! RN 


IHR VERSUCH? 50 
VERSUCHEN SIE ES MIT EINER GROESSEREN ZAHL. 


IHR VERSUCH? 75 
VERSUCHEN SIE ESMIT EINER KLEINEREN ZAHL. 


IHR VERSUCH? 65 
VERSUCHEN SIE ESMIT EINER KLEINEREN ZAHL. 


IHR VERSUCH? 58 
VERSUCHEN SIE ES MIT EINER GROESSEREN ZAHL. 


IHR VERSUCH? 62 
VERSUCHEN SIE ES MIT EINER KLEINEREN ZAHL. 


IHR VERSUCH? 60 
VERSUCHEN SIE ES MIT EINER GROESSEREN ZAHL. 


IHR VERSUCH? 61 
GRATULIEREI!!! SIE HABEN MEINE ZAHL ERRATEN. 


ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100. 
RATEN SIE MEINE ZAHL!!! 


IHR VERSUCH ? 


USW. 


Diese Zeilen werden als der “Lauf” oder ‘'Run‘ des Programms be- 
zeichnet. Der Computer erzeugt dazu eine Zufallszahl zwischen 1 und 
100. Der Spieler muß seine Zahlen eintippen. Nach jedem Versuch gibt 
der Computer einen Hinweis, um dem Spieler beim Raten der Zahl zu 
helfen. 


Sofern Ihnen das jetzt ein bißchen verwirrend vorkommt, lesen Sie 
einfach weiter. Alles wird noch ausführlich erläutert, und es wird 
gar nicht lange dauern, bis Sie selbst Programme in BASIC, wie dieses 
Beispiel lesen und schreiben können. 
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Jeweils nach dem Erraten der Computer-Zahl beginnt der Computer 
mit einem neuen Spiel, wobei es sich mit einiger Wahrscheinlichkeit 
um eine andere Zahl handeln wird. Sie können dieses Spiel so lange 
fortsetzen, wie Sie wollen. 


Sehen Sie sich jetzt noch einmal das Programm für unser Computer- 
Spiel an. Es besteht aus neun Zeilen, von denen jede ein oder mehrere 
BASIC-Statements enthält. Jedes Statement beginnt mit einer Zeilen- 
nummer, z. B. 130 in der vierten Zeile. Der darauffolgende Text, in 
Zeile 130 also PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 
1 und 100°“ ist ein Statement. 


In unserem Programm enthält jede numerierte Zeile ein oder mehrere 
BÄSIC= ...... u Sana & ass an a „ Die Zahlen 100 bis 180 werden als 


a Bee To ie bezeichnet. 


Statements; Zeilen-Nummern 


10. Das Programm in Abschnitt 9 wurde Zeile für Zeile über die 
Tastatur eingetippt. Beim Schreiben wurde das Programm im Speicher 
des Computers abgelegt und gleichzeitig äufdem.. „uuee u. neu asn es 
dargestellt. 


Bildschirm 


Bitte beachten Sie: Auf dem Fernsehschirm können bis zu 24 Zeilen 
gleichzeitig abgebildet werden. Sobald der Schirm gefüllt ist, verur- 
sacht die Eingabe weiterer Informationen das “Aufwärtsrollen‘ des 
Bildschirminhaltes, wodurch die obersten Zeilen nacheinander über den 
Rand weggeschoben werden und verschwinden. 


11. Zuerst haben wir das ganze Programm (Zeilen 100 bis 180) einge- 
tippt und am Ende jeder Zeile die Taste RETURN gedrückt. Dieser Vor- 
gang wird als “'Eingabe des Programms” bezeichnet. Er bewirkt, daß das 
Programm im Computer-Speicher abgelegt wird. Anschließend haben 
wir RUN eingegeben. Dadurch erhielt der Computer die Anweisung, das 
Programm auszuführen. Mit anderen Worten: Nach dem Speichern des 


Programms haben wir dem Computer gesagt, er soll den Instruktionen 
ao des Programms folgen und damit das Programm aus- 
ühren. 


Befindet sich also ein Programm im Speicher des Computers, wird er 
durch Eingabe von RUN dazu veranlaßt, 


.nnTTT ee 


die Instruktionen des Programms auszuführen. 


12. Während des Laufs gehorchte der Computer den Instruktionen 
(Statements) folgendermaßen: Zuerst erzeugte er eine Zufallszahl 
zwischen 1 und 100 einschließlich (Zeile 110). Diese Zahl ist ganz- 
zahlig (“Integer‘’), d. h. sie hat keinen Dezimalbruch-Anteil, 


110 LET X = INT(100*RND(1))+1 


Als nächstes gibt der Computer dem Spi i i 
pieler Anweisungen 
120, 130, 140 und 150). ar 


100 REMARK *** DIES IST EIN EINFACHES COMPUTER- 

120 PRINT re 
130 PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100“ 
140 PRINT “RATEN SIE MEINE ZAHLI!!” 


Dann forderte der Computer den Spieler auf, einen Versuch zu machen 
(Zeile 150). 


150 PRINT : PRINT “IHR VERSUCH“ ; INPUT G 


Nachdem der Spieler eine Zahl eingetippt und die Taste RETURN be- 
tätigt hatte, verglich der Computer die geratene Zahl mit seiner dem 
Spieler unbekannten Zahl und gab ihm die entsprechende Antwort 
(Zeilen 160, 170, 180). 


160 IF G € X THEN PRINT “VERSUCHEN SIE ES MIT EINER 
GROESSEREN ZAHL." : GOTO 150 

170 IF G ) X THEN PRINT "VERSUCHEN SIE ES MIT EINER 
KLEINEREN ZAHL.” : GOTO 150 
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180 IF G=X THEN PRINT “GRATULIERE!!! SIE HABEN MEINE 
ZAHL ERRATEN.” : GOTO 110 


Wenn der Spieler die Zahl des Computers nicht erriet, ging der Computer 
im Programm zurück zur Zeile 150 und forderte zu einem neuen 
Versuch auf. Sofern der Spieler jedoch die unbekannte Zahl traf, be- 
stätigte der Computer die korrekte Eingabe und ging im Programm 
zurück zur Zeile 110, um sich eine neue Zahl "auszudenken’’. 


100 REMARK *** DIES IST EIN EINFACHES COMPUTER-SPIEL 


Jetzt haben wir nur noch die Zeile 100 vergessen. REMARK ist auch 
ein Statement. Es fordert jedoch nicht den Computer auf, irgend 
etwas zu tun, sondern ist nur vorgesehen, um dem Leser des Programms 
etwas über das Programm selbst mitzuteilen. 


Welches Wort müssen wir über die Tastatur eingeben, um dem Computer 
mitzuteilen, daß er ein Programm ausführen soll? .......-srrrere 0: 


Wenn Sie jetzt zum Schluß festellen wollen, wieviel Sie aus diesem 
ersten Kapitel gelernt haben, versuchen Sienoch einmal den anschließen- 
den Eigentest. Dann geht es weiter mit Kapitel 2, in dem Sie anfangen 
werden, die tatsächliche Benutzung des Computers zu erlernen. 


EIGENTEST 


Versuchen Sie diesen Eigentest, um festzustellen, wieviel Sie bisher ge- 
lernt haben. 


1. Was benutzt Ihr Computer als Ausgabegerät? ......-s2rrenenr00. 


2. Wofür stehen die folgenden Abkürzungen? 
a) CPU 


Da ar ar Bar Bar Bar Bu ar ar Dar BL BE BE BE BE BL BB BE Br ur) 


3. Ein Computer hat ja bekanntlich keine Beine. Was wollen wir also 
von ihm, wenn wir das Wort RUN (Lauf) eingeben? 


Antworten zum Eigentest 


Die Zahlen in den Klammern hinter den jeweiligen Antworten beziehen 
sich auf diejenigen Abschnitte des ersten Kapitels, in denen der ent- 
sprechende Stoff behandelt wurde. Wenn Sie sich nochmals kurz 
informieren möchten, können Sie dort nachschlagen. 


1. Fernseh-Bildschirm (6) 

2.a) Zentraleinheit 
b) Schreib/Lesespeicher oder Arbeitsspeicher 
c) Nur-Lese-Speicher (2, 4) 

3. Führe das Programm aus (11, 12) 
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NOTIZEN 


Kapitel 2 
Die ersten Schritte 


Als ersten Schritt der Computer-Programmierung in BASIC wollen wir 
Sie jetzt mit einigen Statements vertraut machen, die dazu verwendet 
werden, den Computer zu instruieren, was er tun soll. In diesem Kapitel 
werden Sie zunächst den direkten oder unmittelbaren Betrieb ver- 
wenden. Dabei teilen Sie dem Computer mit, was er ausführen soll, und 
er erledigt es unmittelbar darauf. Wenn Sie dieses Kapitel beendet 
haben, werden Sie in der Lage sein: 


®@ direkte Statements zur Instruktion des Computers zu benutzen; 
© Fehlermeldungen des Computers zu erkennen; 


© das PRINT-Statement mit Anführungszeichen zu verwenden, um 
Strings (Mitteilungen) auszudrucken; 


© Tippfehler zu korrigieren oder ein fehlerhaftes Statement zu ent- 
fernen; 


@ direkte Statements für arithmetische Operationen zu benutzen; 


© Werte einfacher mathematischer Ausdrücke, unter Verwendung 
der für die Arithmetik gültigen Symbole und Regeln von BASIC, 
zu berechnen; 


© Gleitkomma- bzw. Exponential-Darstellungen von Zahlen zu 
erkennen und sie in gewöhnliche Zahlen umzuwandeln. 


1. 

Jetzt wollen wir damit beginnen, mit unserem Computer "zu sprechen”. 
Dabei gehen wir davon aus, daß Ihr ATARI-Computer-System betriebs- 
bereit und die BASIC-Sprach-Kassette eingesetzt ist. Anweisungen 
dafür finden Sie im Bedienungs-Handbuch Ihres Computers. 


Fertig? Dann Schalten Sie jetzt Ihren Computer ein. KLICK! Auf 
Ihrem Bildschirm sehen Sie foglende Darstellung: 
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READY 





Das kleine Quadrat heißt CURSOR, 
wenn Sie es sehen, will der Computer 
eine Eingabe. 


Das kleine helle Rechteck wird als CURSOR bezeichnet. Wenn Sie 
ihn sehen, wissen Sie, daß Sie an der Reihe sind, etwas zu tun. 


Ihr ATARI-Computer ist jetzt für Sie zur Benutzung bereit. Daß er 
bereit ist wissen Sie aus dem Wort READY auf dem Bildschirm und aus 
der Darstellung des kleinen Rechteckes, das BIS} 5 ne bezeichnet 
wird. 


CURSOR 


2. Um mit dem Computer in Verbindung zu treten verwenden wir 
natürlich die Tastatur. 


X S & r ) & 
BH8H988BHBBEBHHBRBBEY 
@O00088000033= 
&0000908008338® 
EBBOGUODODOBBAHDNE 

rer) 








In obiger Abbildung zeigt ein dicker, schwarzer Pfeil auf eine Taste, die 
bezeichnet ist mit .......srreeee ern n nen 


RETURN 


3, Ihr Computer wartet geduldig darauf, daß Sie etwas tun. Geben Sie 
daher doch versuchsweise einmal Ihren Namen ein und drücken Sie die 
RETURN-Taste. Der Computer wird vermutlich eine Fehlermeldung 
auf dem Bildschirm ausgeben. 







Hier sehen Sie, was geschah, als Karl seinen Namen eintippte. 


KARL 0 


Während Karl schrieb, bewegte sich der Cursor nach rechts. Zum 
Schluß betätigte Karl die RETURN-Taste, worauf auf dem Bildschirm 
folgende Anzeige sichtbar wurde: 





KARL 
ERROR- KARL 


Der Computer gibt an, daß ein Fehler (ERROR) vorliegt, wobei es sich 
offensichtlich um das Wort KARL handelt, das durch ein kleines Recht- 
eck gekennzeichnet ist. Anschließend schaltet er den Cursor wieder ein. 


Warum ist dieswohl geschehen? Wir sehen an diesem Beispiel ganz deut- 
lich, daß der Computer nur über eine sehr beschränkte Intelligenz 
verfügt. Er hat das Wort KARL einfach nicht verstanden! 


a) Wenn Sie etwas eintippen, auf RETURN drücken und der Computer 
auf dem Bildschirm ERROR meldet, was will er Ihnen damit sagen? 


Pac ar Tor Dar Ba a ar ar Ba Ta vor ar Bar Dur DL Dar Dr Dur Dur DL Dur BE Do DE DL DL Doc uL Dur BEL HE BEL ur Dur BE Dur BE Bor Zur Br Bar Bu Kur ur Bar Ber BE BE Br Zr Br Br Er 


b) Was macht der Computer, nachdem er “ERROR-- KARL " aus- 
gegeben hat? 


DIL Wr ar Dur vu Tr ut ur zur u ER wor Var Dar yo Dur DEE Dur vor Yor Bor Er War ver Zu 2 Jar Ir WEL ur Jr Br EL Tu JIL BR Dur Ber Be Der FZ Sr ze; 


a) Er versteht Sie nicht. 
b) Er schaltet den Cursor wieder ein. 
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Mit dem Cursor teilt der Computer Ihnen mit, daß alles in Ordnung 
ist. Er ist nämlich sehr geduldig und vergibt Fehler sehr schnell. 


Wenn Sie einen Fehler machen, bringt der Computer ihn zur Anzeige 
und schaltet anschließend den Cursor wieder an, um Ihnen mitzuteilen, 
daß er für einen erneuten Versuch von Ihnen bereit ist. 


4. Suchen Sie auf der Tastatur die SHIFT- und die CLEAR-Taste. 
Drücken Sie die SHIFT-Taste, halten Sie sie fest und drücken Sie 
gleichzeitig auf CLEAR. Der Bildschirm ist dann völlig leer, bis auf den 
CURSOR. Das Drücken von SHIFT und CLEAR gemeinsam löscht 
also den gesamten Bildschirm und läßt nur den Cursor in seiner 
“Home’'-Position zurück. Darunter versteht man die Ausgangsposition 
in der linken oberen Ecke des Bildschirms. 


a) Um den Bildschirm zu löschen und den Cursor in die Home-Position 
zu bringen, müssen Sie .......+ +++» UN. samen gleichzeitig 
drücken. 


ara TREE BE Eee Bi 


a) SHIFT; CLEAR 
b) In der linken oberen Ecke des Bildschirms. 


Eine andere Möglichkeit, um den Bildschirm zu löschen und den Cursor 
in die Home-Position zu bringen besteht darin, CTRL und CLEAR 
gemeinsam zu drücken. CTRL ist eine Abkürzung für CONTROL. Die 
CTRL-Taste liegt an der linken Seite der Tastatur, direkt oberhalb der 
SHIFT-Taste. 


5, Um Mißverständnisse mit einem Computer zu vermeiden, müssen wir 
seine Sprache erlernen. Wir wollen daher jetzt mit einigen einfachen 
einzeiligen Statements beginnen, die der Computer versteht. 


In diesem Kapitel werden wir direkte Statements verwenden. Direkte 
Statements haben keine Zeilennummern. Wenn Sie ein direktes State- 


ment eingeben und RETURN drücken, führt der Computer das State- 
ment direkt aus und vergißt es dann. Wir bezeichnen dies als "direkte 
BASIC-Betriebsart”’. Hier sehen Sie ein weiteres Beispiel für ein State- 
ment, das im direkten Betrieb ausgeführt wird. 


Wir geben über die Tastatur ein: 

PRINT “MEIN BENUTZER VERSTEHT MICH” 
Dann drücken wir auf RETURN. 

Der Computer schreibt auf dem Bildschirm: 
MEIN BENUTZER VERSTEHT MICH 
Vervollständigen Sie jetzt selbst das nächste Beispiel: 


Wir schreiben: 
PRINT ”EINBRECHER SIND IM HAUS!” 


Der Computer schreibt auf dem Bildschirm: 


z.eierd Erna re a a u RE et 


EINBRECHER SIND IM HAUS! 


Zusammen mit der Meldung, daß Einbrecher im Hause sind, könnten 
wir auch vorsehen (wie wir später noch sehen werden), daß der 
Computer ein akustisches Alarm-Signal abgibt. Beispielsweise könnte 
er den Jailhouse-Blues spielen! Das würde den Einbrecher vielleicht 
an die möglichen Folgen einer Straftat erninnern und ihn daher von 
dem geplanten Diebstahl abschrecken. Mehr darüber jedoch später. 


6. Das Statement PRINT “MEIN BENUTZER VERSTEHT MICH“ 
wird als PRINT-Statement bezeichnet. Es weist den Computer an, 
etwas auf den Bildschirm zu schreiben. Ausgegeben wird die Mitteilung, 
die auf das Wort PRINT folgt. Bitte beachten Sie, daß dieser Text in 
Anführungsstriche gesetzt ist. Eine derart gekennzeichnete Mitteilung 
wird als “’String‘’ bezeichnet. 


In unserem Beispiel ist der Text MEIN BENUTZER VERSTEHT MICH 
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der eigentliche String, die ihn einschließenden Anführungszeichen 
gehören nicht dazu. 


Ein String kann enthalten: 


Ziffern (0,1,2,...) 
Buchstaben (A,B,C,...) 
Spezielle Zeichen (+, —, *, /, Komma, usw.) 


Glauben Sie daß Anführungszeichen, die ja Anfang und Ende eines 
Strings kennzeichnen, auch innerhalb eines Strings als Zeichen ver- 
wendet werden dürfen ? .... 22222 eesseee res e en er nn nnnnn 


Swen DET ae EEE ET EEE I die Fe Ve an BR 


Nein, Siedürfen nicht verwendet werden, da dies den Computer wirklich 
in Verwirring bringen würde. Dagegen können Apostrophe (‘) benutzt 
werden, wie das folgende Beispiel angibt: 


Wir geben ein: 
PRINT "SIE SAGTEN, ’ES IST ALLES IN ORDNUNG.’ “ 


Der Computer schreibt auf den Bildschirm: 
SIE SAGTEN, ’ES IST ALLES IN ORDNUNG. 


Bitte vervollständigen Sie das folgende Statement, damit der Computer 
das schreibt, was wir als Ausgabe auf dem Bildschirm lesen wollen: 


Wir geben ein: 
PRINT: : : sus. a sage an a anne au ae ar una nn in 


Auf dem Bildschirm soll zu lesen sein: 
DER BRATEN IST FERTIG. SCHALTE DEN OFEN AUS. 


“DER BRATEN IST FERTIG. SCHALTE DEN OFEN AUS.” 


Haben Sie sich an die Anführungszeichen erinnert? Eines Tages wird 


der Computer sicherlich den Ofen ausschalten, denn nahezu jedes 
elektrische Gerät kann, sofern es über geeignete Anschlüsse verfügt, 
von einem Computer mit dem richtigen Programm gesteuert werden. 


7. Haben Sie bisher schon irgendwelche Tippfehler gemacht? Sollte 
Ihnen das passieren, gibt es in BASIC eine ganz einfache Möglichkeit 
zu Ihrer Korrektur. Achten Sie einmal darauf, was geschieht, wenn 
wir einen Tippfehler machen. 


Wir geben beispielsweise über die Tastatur ein: 
PTINT “DENTIST APPOINTMENT TODAY“ 


Der Computer schreibt auf den Bildschirm: 
ERROR — PTINT “DENTIST APPOINTMENT TODAY“ 


Wir haben PRINT falsch geschrieben, so daß der Computer nicht weiß, 
was wir wollen. Hätten wir jedoch gleich beim Schreiben bemerkt, daß 
wir T statt R getippt haben, wäre es möglich gewesen, den Fehler sofort 
mit der “DELETE BACK S” - Taste zu beseitigen. Jedesmal beim 
Betätigen dieser Taste bewegt sich der Cursor um eine Stelle nach links 
und löscht dabei das an dieser Stelle stehende Zeichen. 


Wir schreiben ABCDE 

Betätigen Sie jetzt die Taste DELETE BACKS. 
Drücken Sie noch einmal auf DELETE BACK SI 
Und noch einmal! 





ABCDEM 
ABCOM 
ABCH 
AB® 


EM =CURSOR 


Was geschieht, wenn wir DELETE BACK S noch zweimal betätigen?... 


Due Baar Br Be er er er Er Br er a er ee er ee ee er ee ee er Be ee er er er ee ee Be ee er er er er er ee er er ee er er BE Be er ee ee ee 





Der Cursor bewegt sich zwei Stellen nach links, wodurch E, D und 
C gelöscht werden. 


8. Vervollständigen Sie die folgende Zeile so, daß der Computer den 
Text in der darunterstehenden Zeile druckt. 


Wir schreiben: PRIMR ........ “MORGEN IST DER GEBURTSTAG 
DEINER MUTTER!!!” 


Der Computer gibt auf dem Bildschirm aus: "MORGEN IST DER 
GEBURTSTAG DEINER MUTTER!!! 


Wir erinnern uns: Um das zuletzt geschriebene Zeichen zu löschen, 
betätigen wir DELETE BACK S. Um zwei Zeichen zu löschen, drücken 
wir zweimal auf DELETE BACK S usw. 


9. Die Taste DELETE BACK S ist hervorragend geeignet, um Fehler zu 
beseitigen, die man gerade eben gemacht hat. Aber nehmen wir einmal 
an, wir schreiben eine lange Zeile, sind fast an ihrem Ende angelangt 
und entecken dann zu unserem Ärger einen Fehler ganz am Anfang. 
Vervollständigen wir die Zeile ohne Korrektur und drücken RETURN, 
werden wir mit einiger Wahrscheinlichkeit eine Fehlermeldung erhalten. 
Sie werden also sicherlich die Zeile entfernen, das heißt von Anfang an 
löschen wollen. 


Das geht auch ganz einfach. Sie brauchen dazu nur die SHIFT-Taste 
und DELETE BACK S gleichzeitig zu betätigen. 


Wir schreiben: PRIMT “ESWAR EINMAL EIN 


Jetzt betätigen wir SHIFT und DELETE BACK S zusammen. Der 
Computer löscht die Zeile und schaltet den Cursor ein. Was will der 
Computer uns mitteilen, wenn er den Cursor sichtbar macht? 


onen Ehen See ee ee ee au ern re u ee 


Wir sind an der Reihe zu schreiben. 


10. Wir können dem Computer auch den Befehl geben, arithmetische 
Operationen auszuführen und die Antwort auszugeben. Mit anderen 
Worten, wir können den Computer auch als Tischrechner benutzen. 


Wir schreiben PRINT 7 +5 


Er schreibt: 12 


Das Statement PRINT 7 + 5 gibt dem Computer den Befehl, den Wert 
von 7 + 5 zu berechnen und das Ergebnis anzuzeigen. 


Bitte beachten Sei, daß tatsächlich auszuführende Berechnungen für den 
Computer dadurch gekennzeichnet sind, daß keine Anführungszeichen 
im PRINT-Statement verwendet werden. Vergleichen Sie die nach- 
stehend angegebenen Formate: 


1.) PRINT "13 +6 

Die in Anführungszeichen eingeschlossenen Zahlen stellen einen String 
dar. Der Computer gibt ihn auf dem Bildschirm in der gleichen Form 
wieder, wie er eingegeben wurde: 13 +6 

2.) PRINT 13+6 


Dies ist ein numerischer Ausdruck (ohne Anführungszeichen). Der 
Computer führt die geforderte arithmetische Operation durch und gibt 
das Ergebnis aus: 19 


Jetzt sind Sie an der Reihe. Geben Sie in den nächsten Zeilen jeweils an, 
was der Computer auf unsere Eingabe hin auf dem Bildschirm ausgibt. 


Wir schreiben: PRINT 23 + 45 
Der Cömpüterschreibti =. asus u ann u een name nr ur 


Wir schreiben: PRINT1+2+3+4+5 
Der-Compüterschreibt:; : :: ©... 88% 8 Sale u WA rs 


Wir schreiben: PRINT "1 +2 +3+4 +5” 


27 


Der Computer schreibt: ....: "rer nn 


15 
1+2+3+4+5 






Uh oh! Konto überzogen 
11. Subtraktion? Kein Problem! 


Wir schreiben: PRINT 7 —5 


Der Computer schreibt: 2 


Wir schreiben: PRINT 25.68 — 37.95 
Der Computer schreibt: —12.27 


Vervollständigen Sie in den folgenden Zeilen jeweils die Ausgabe 
des Computers. 


Wir schreiben: PRINT 29 — 13 
Der Computer schreibt: . .. „nr. sa m es nen nen 


Wir schreiben PRINT 1500 — 2000 
Der Computer schreibt: .....« res eeree nennen nennen 


Wir schreiben: PRINT ‘1500 — 2000° 
Der Computer schreibt: .....-.sr res ee een rennen nn 


—500 
1500 — 2000 


12. BASIC verwendet + für die Addition und — für die Subtraktion, 
so wie wir es beim Rechnen mit Papier und Bleistift auch tun. Als 
Multiplikationszeichen wird in BASIC jedoch der Stern (*) benutzt. 


Wir schreiben: PRINT 7 *5 
Der Computer schreibt: 35 


Wir schreiben: PRINT 1.23 * 4.567 
Der Computer schreibt: 5.61741 


Wir schreiben: 9 * 8 
Der: Computer schreibt: ...... + inne 5 Sa EN Ei 


Wir schreiben: PRINT 3.14 * 20 
Der'Gomputer:schreibti ...n.e 2: sanien ao Samas 5a un kiened I a 


13. Für die Division wird der Schrägstrich (/) verwendet. 


Wir schreiben: PRINT 7/5 
Der Computer schreibt: 1.4 


Wir schreiben: PRINT 13/16 
Der Computer schreibt: 0.8125 


Wir schreiben: PRINT 24/3 
Der Compüterschreibt}; 4. 2: +... Bahr Hi HI a 


Wir schreiben: PRINT 3.14/4 
Ber:Gompuüter:schreibt:: „... «. sun sie sneumieie ns mann ine 


14. Der Computer gibt das Ergebnis arithmetischer Operationen mit 
einer Länge von 9 oder 10 Stellen aus. Sofern das tatsächliche Ergebnis 
eine größere Stellenzahl aufweist, wird die ausgedruckte Zahl auf eine 
Länge von 9 oder 10 Stellen beschnitten. 


Wir schreiben: PRINT 1.2345 * 6.78999 


Der Computer schreibt: 8.38224265 
Die vollständige Anwort hat 10 Stellen und lautet: 8.382242655 


Wir schreiben: PRINT 1/3 
Der Computer schreibt: 0.3333333333 


Das tatsächliche Ergebnis kann in diesem Fall nicht mit einer endlichen 
Stellenzahl angegeben werden, sondern ist unendlich lang. 


Wir schreiben: PRINT 2/3 
Der Computer schreibt: 0.6666666666 


Das tatsächliche Resultat wurde nach der zehnten Stelle abgeschnitten. 


Nehmen wir an, daß das Ergebnis einer umfangreichen arithmetischen 
Operation 1.234567898765 lautet. Was wird der Computer ausgeben? 


a ae te a ae ee ee ie ee a ee 


Das Ergebnis einer anderen Operation lautet 3.14159265359. Was wird 
der Computer ausgeben? ...... ernennen nennt nn nt 


1.23456789 oder 1.234567898 
3.14159265 oder 3.141592653 


15. Schreiben Sie PRINT-Statements, um dem Computer den Befehl zu 
geben, die fogenden numerischen Ausdrücke zu berechnen. Geben Sie 
auch das vom Computer ausgedruckte Ergebnis an. 


Numerischer Ausdruck PRINT-Statement und Ergebnis 


a) 10+6 
b) 15 —8 


a mare ne re Be Br are ae RL 


a u re ee 


armer Beer Be ee en 


EA rei ae ee en NE 


a) PRINT10+6 16 

b)PRINT15—-8 7 

c) PRINT 23/5 4.6 

d) PRINT 3*13 39 

e) PRINT 8/3 2.66666666 (abgekürzt auf 9 Stellen) 

f) PRINT 120/77 17.14295714 (abgekürzt auf zehn Stellen) 


16. Der Computer arbeitet arithmetische Ausdrücke von links nach 
rechts ab, wobei alle Multiplikationen (*) und/oder Divisionen (/) 
vor Additionen(+) und/oder Subtraktionen (—) ausgeführt werden. 


Nachfolgend werden einige BASIC-Ausdrücke angegeben, in denen 
zwei oder mehr Operationen vorkommen. Für einige dieser Ausdrücke 
sind bereits die Werte angegeben, die der Computer durch Ausführung 
der angegebenen Arithmetikoperationen berechnet hat. Vervollstän- 
digen Sie bitte den Rest. 


Ausdruck vom Computer berechnet Rechengang für die 
arithmetische Operation 
2*3—4 2 2*3-4=6-4=2 
2+3*4 14 2+3*4=2+12+ 
ZIG — u ra _. 
BD nn 5 a 


ner] ren. 
ee 


MT ET u 


26 2*3+4*%5=6+20=26 . 
9 2413*4-5=2+12—-5=9 
-16 2*3+4*5-6*7=6+20-42=- 16 


17. Hier sind einige weitere Beispiele und Übungen, in denen Division 
N vorkommt. Sehen Sie sich die Beispiele genau an und vervoll- 
ständigen Sie die Übungen. Folgen Sie dabei der in Abschnitt 16 be- 
m Reihenfolge, in der der Computer arithmetische Operationen 
ausführt. 
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Ausdruck vom Computer berechnet Rechengang für die 
arithmetische Operation 
3/4+5 5.75 3/4+5 = .75+5 = 5.75 
2—-3/4 1.25 2-3/4 = 2-.75 = 1.25 
2*3+4/5 6.8 2*3+4/5 = 6+.8 = 6.8 
SMS  ——— overremeree  nnnnenn 
>): 1 A 7 > £ 0:5 %°03 2220020, 


30.75 3/4+5*6 = .75 + 30 = 30.75 
6.25 2-3/4+5 = 2-.75 +5 = 6.25 


18. Geben Sie, gemäß den Regeln des Computers, den berechneten 
Wert für jeden der nachfolgenden Ausdrücke an. (Denken Sie dabei 
daran, die Berechnung von links nach rechts vorzunehmen!) 


Ausdruck vom Computer berechneter Wert 


2*3/4 
3/4*5 
3/4/5 
2*3/4+3/4*5 


sa a gague ne varudaıe De  eree e 
Sara ee are LEUTE Te I TEEN 
ee are ae 5 ann aa er ae ARE EEE ER 


iii Re ER ae an rd EEE TE REN 


1.5 multiplizieren Sie 2 mit 3 und dividieren Sie das Ergebnis durch 4 

3.75 dividieren Sie 3 durch 4 und multiplizieren Sie das Ergebnis mit 5 

0.15 dividieren Sie 3 durch 4 und das Ergebnis anschließend durch 5 

5.25 berechnen Sie zunächst 2*3/4, anschließend 3/4*5, dann addieren 
Sie die beiden Teilergebnisse 


19. Geben Sie für jeden der folgenden numerischen Ausdrücke die 
Reihenfolge an, in welcher der Computer die Berechnung ausführt, 
indem Sie die Ziffern 1, 2 oder 3 in die Kreise über den Operations- 
Symbolen eintragen. Wir haben die ersten drei bereits für Sie ausge- 
füllt. 


® ® 


a)2+4—-4 c)2*3/4 


b)2-3*4 
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OO OÖ 

d)2/374 deren Su 
> 

g27374*2 h)2+3*4 


4)2/3/4 e)2+3*4—-2 1 2-3*4+1 
OD @ 
g)2+3/4*2 h)2+3*4 


20. Wenn Sie die Reihenfolge ändern möchten, in der die einzelnen 
Operationen vom Computer ausgeführt werden, müssen Sie Klammern 
benutzen. Dabei gilt die Regel, daß Operationen in Klammern zuerst 
ausgeführt werden. 


Beginnend mit dem am meisten links liegenden inneren Satz von 
Klammern führt der Computer, innerhalb zusammgehörender Klam- 
mern, die Berechnung wiederum von links nach rechts durch, wobei 
alle Multiplikationen (*) und/oder Divisionen (/) vor Additionen (+) 
und/oder Subtraktionen (—) ausgeführt werden. 


* - 


Sehen Sie sich bei den folgenden Beispielen an, wie die Reihenfolge der 
einzelnen Operationen völlig verschiedene Ergebnisse liefern kann. 


33 


..34 


2*3+4 = 10 


aber 

2*(3+4) = 14 In diesem Beispiel wird 3+4 zuerst berechnet, 
da es innerhalb der Klammern liegt und an- 
schließend mit 2 multipliziert wird. 

2+3*4+5 = 19 

aber 


(2+3)*(4+5) = 45 Berechnen Sie zunächst 2+3, anschließend 


4+5 und multiplizieren dann beide Ergebnisse. 


Vervollständigen Sie die folgende Übung: 


Ausdruck vom Computer berechneter Wert 

HE —— ee Be a a ie ie 

HE. a Be Ba er w“ 

DE 222.2. bare ee re EEE 
0.25 (2+3)/(4*5) = 5/20 = .25 


29 2+3*(4+5) = 2+3*9 = 2+27 = 29 
0.125 1/(3+5) = 1/8= .125 


21. Wir wollen uns jetzt nochmals die Reihenfolge ansehen, in der die 
Berechnung erfolgt. In den nachstehend angeführten Ausdrücken zeigen 
die Zahlen in den Kreisen die Reihenfolge an, in der die Operationen 
ausgeführt werden. Schreiben Sie den endgültigen Wert für jeden Aus- 
druck hin. Die Berechnung beginnt immer mit dem innersten Satz von 
Klammern. 


Ausdruck 


BOO® ®® 


2+3*(4-(5+6*7)) 


OO® ® © 


(3*4+5*6-7)/8 


vom Computer berechneter Wert 


une avec. ea Biete ee ee ee 


euere 


— - 


22. Ihre nächste Aufgabe besteht darin, ein einwandfreies PRINT- 
Statement zu schreiben, um dem Computer mitzuteilen, daß er den 
Wert für jeden der untenstehenden Ausdrücke berechnen und aus- 
drucken soll. Denken Sie daran, alle Multiplikationen und Divisionen 
mit den in BASIC gültigen Symbolen anzugeben. 


Ausdruck PRINT-Statement Ergebnis 
DREFBET oO unnunee nn nenn 6.85714285 
DET) — A a an 192 
STÄAXZRZ 00 Ei ai 12.56 
88 — 52 

18447 reeeeesnenennnnnn 0.5538461538 


PRINT 2*3+6/7 

PRINT 16*(33—21) 
PRINT 3.14*2*2 
PRINT (88-52)/(18+47) 


(Haben Sie auch nicht den Stern für die Multiplikation vergessen?) 


23. Geben Sie für jeden der nachfolgenden numerischen Ausdrücke die 
Reihenfolge der Operationen an, indem Sie 1, 2, 3 usw. in die Kreise 
oberhalb der jeweiligen Operation eintragen. 


OO 


a)2+(3-4) e) (2+3)/(4+1) 


b)2/(3/4) *(2+3) fl 2/(3+4) 


OO Er 


c)2/(3*4) g)2+((3+4) +8) 


OO O0O0000 


d)(2+3)*4 h)1+1/(2+1/(3+1/4)) 
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BO O®® 
a) 2+(3—-4) e)(2+3)/(4+1) 
BSD @ ® ® © 


b)2/(3/4)*(2+3) 


©) 
© 


® 


c)2/(3*4) g)2+((3+4)+8) 
® VOOROFOREOFO) 
d(2+3)*4 h)1+1/(2+1/(3+1/4)) 


24. Es gibt in BASIC noch ein fünftes arithmetisches Symbol, das die 
Erhebung einer Zahl in eine Potenz angibt. Diese Operation wird 
Potenzierung genannt. 


” bedeutet: Erhebe in die nachfolgend angegebene Potenz 


SHIFT we 


Das Volumen eines Würfels ist ein gutes Beispiel dafür, wie Potenzen 
verwendet werden. 


Das Volumen eines Würfels mit der Kantenlänge S ergibt sich zu: 


V=S3 
It S=5 und V = 53, dann berechnet sich das Volumen aus: 
V=53=-5x5x5= 125 
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Wir drücken nochmals gleichzeitig die Tasten | SHIFT Jund r 


um dem Computer mitzuteilen, daß er eine Zahl in eine Potenz er- 
heben soll, 


Wir schreiben: PRINT 5”3 (5”'3 bedeutet 53 oder 5x5x5) 


Der Computer schreibt: 124.99999998 Hmmmmm .... sehen 
Sie das Ergebnis als 125 
an! 


Vervollständigen Sie jetzt die folgende Übung und geben Sie Ihre 
Antworten als ganze Zahlen an. 


Wir schreiben: PRINT 27° 3 
Der Coripuserschrelbt: aus cs una au we 0 re ea ir 
Wir schreiben: PRINT2”4 
DerCanpur ih re an ee nn 
Wir schreiben: PRINT2”5 
DEF CHBDITOFBERFEIDE 5  a kan  amnene eneie 
Wir schreiben: PRINT 7?2 


Der Computerschreiht:  seuuuasuemenan no wenn nn Ener 


Der Computer gab an: 


8 2X3=23=2x2x2=8 7.99999986 
16 274 = 24 = 2x2x2x2 = 16 15.9999993 
32 25 = 29 = 2x2x2x2x2 = 32 31.99993444 
43 7N2=72=7x7=49 48.99999631 


25. Schreiben Sie ein PRINT-Statement, um jeden der nachfolgend 
angegebenen Ausdrücke zu berechnen. Wir haben bereits die Ergeb- 
nisse geliefert. 


Ausdruck PRINT-Statement Ergebnis 
EEE 2187 
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ae ie Er leere 32768 
ar (Verwenden Sie * ) 
EEE — ee 1.79085 
2 Ve RER 24 
Ey i IIs d wünschte 
PRINT 8X 5 (PRINT grg*g*8*8 liefert ebenfalls das ge 


Ergebnis) 
PRINT 1.06 * 10 
ir ei i M auf ein Sparbuch ein, 
26. Nehmen wir einmal an, wir zahlen 123 D 
für das wir 6% Zinsen pro Jahr, bei jährlicher Berechnung, erhalten. 


Die Höhe des gesparten Kapitals, einschließlich der Zinsen nach N 
Jahren, kann mit Hilfe der nachfolgenden Formel berechnet werden. 


A =P(1 + R/100)N 

darin ist: 

P = das ursprünglich auf das Sparbuch eingezahlte Grundkapital 
R = der jährliche Zinsfuß in Prozent 


N = die Spardauer in Jahren 
A = die Höhe des Sparkapitals am Ende von N Jahren 


In unserem Beispiel ist P = 123 DM, R= 6%. Wir möchten gern die 
Höhe von A für N=2,N =5 und N = 12 Jahre wissen. 


Wir schreiben: PRINT 123*(1+6/100) *2 
Der Computer schreibt: 130.203 (nach 2 Jahren) 


Wir schreiben: PRINT 123*(1+6/100)' 5 
Der Computer schreibt: 164.602 (nach 5 Jahren) 


Jetzt sind Sie an d 
gegeben. 


Wir schreiben: 
Der Computer schreibt: 247.5 
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er Reihe. Schreiben Sie das PRINT-Statement für 
N = 12. Wir haben das vom Computer gelieferte Ergebnis bereits an- 


Nach 12 Jahren hat sich unser ursprüngliches Kapital also verdoppelt. 


PRINT 123*(1+6/100)12 


27. Computer verwenden zur Darstellung sehr großer oder sehr kleiner 
Zahlen eine spezielle Schreibweise. Diese Methode zum Schreiben von 
Zahlen wird “'Gleitkomma-Darstellung’’ genannt. Sie ist in der gleichen 
Form zu lesen, wie die wissenschaftliche Schreibweise, die gewöhnlich 
in mathematischen und wissenschaftlichen Lehrbüchern verwendet 
wird. 


Die Bevölkerung der Erde beträgt beispielsweise 40,000,000,000 
Menschen: 


40 Milliarden = 40,000,000,000 


Wir wollen jetzt den Computer auffordern, die Bevölkerung der Erde 
anzugeben. 


Wir schreiben: PRINT 40000000000 (ohne Komma) 


Der Computer schreibt: 4E+10 
Was haben wir darunter zu verstehen? 


Unser ATARI-Computer hat 40 Milliarden als Gleitkomma-Zahl dar- 
gestellt, die folgendermaßen zu lesen ist: 


4E + 10 = viermal 10 hoch 10, oder 
4E + 10=4 x 1010 


Die Gleitkomma-Darstellung ist also nichts anderes als eine Kurz- 
schreibweise um sehr große oder sehr kleine Zahlen darzustellen. In 
der Gleitkomma-Schreibweise wird eine Zahl durch eine *’Mantisse” 
und einen “’Exponenten‘ repräsentiert. 


4 = Mantisse 
+10 = Exponent 


Die Mantisse und der Exponent sind durch den Buchstaben... ........ 
getrennt. 
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Anmerkung: 

Bei der Zahlen-Eingabe in den Computer dürfen keine Kommas ver- 
wendet werden, wie es sonst beim Schreiben von Zahlen üblich ist. 
Das Komma hat in BASIC PRINT-Statements eine spezielle Bedeutung, 
die später noch erläutert werden soll. 


28. Hier sind einige Beispiele für die Schreibweise von Zahlen in her- 
kömmlicher Art und anschließend in Gleitkommadarstellung. 


Eine Trillion: 


übliche Schreibweise 
Gleitkommadarstellung 


1,000,000,000,000 
1E+12 


Geschwindigkeit einer Schnecke in Meilen/Sekunden: 


0.0000079 
7.9E-6 (negativer Exponent) 


übliche Schreibweise 
Gleitkommadarstellung 


Unterstreichen Sie in den beiden obigen Gleitkommazahlen die Man- 
tisse und kreisen Sie den Exponenten ein. 


29. Hier sind einige weitere Beispiele, die zeigen, wie der ATARI- 
Computer Gleitkommazahlen ausdruckt. 


PRINT 123456789 
123456789 


Wir schreiben: 
Der Computer schreibt: 


PRINT 12345678899 
1.2345678E+10 


Wir schreiben: 
Der Computer schreibt: 


PRINT 12345678000 
1.2345678E+10 


Wir schreiben: 
Der Computer schreibt: 


Unser ATARI Computer druckt wenigstens neun Stellen für die Man- 
tisse und schneidet sie an der neunten Stelle ab. Die Mantisse wird als 
eine Zahl mit einer von Null verschiedenen Ziffern links vom Dezimal- 


punkt und einer Länge von bis zu 8 Stellen rechts vom Dezimalpunkt 
ausgegeben. 


Wir schreiben: 
Der Computer schreibt: 


PRINT 333333333333 


Eee ea e 


Wir schreiben: 
Der Computer schreibt: 


3.33333333E+1 1 
6.66666666E +1 1 


30. In gleicher Weise werden sehr kleine Zahlen dargestellt. 


Wir schreiben: PRINT .0000001234567889 


Der Computer schreibt: 1.23456788E—07 (negativer Exponent) 


Wir schreiben: PRINT .0000001234567884 


Der Computer schreibt: 1.23456788E—07 (negativer Exponent) 


Wieviele Stellen hat die Mantisse links vom Dezimalpunkt? .......... 
Wieviele Stellen hat sie maximal rechts vom Dezimalpunkt? ......... 


(Beispiele für Mantissen mit weniger als 8 Stellen rechts vom Dezimal- 
punkt finden Sie in den abschnitten 28 und 29). 


31. Zahlen in Gleitkommadarstellung können in die übliche Schreib- 
weise umgeformt werden. Wenn der Exponent positiv ist, gehen Sie 
folgendermaßen vor: 


a) Schreiben Sie die Mantisse separat. 
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b) Verschieben Sie den Dezimalpunkt der Mantisse um soviele 
Stellen zum rechten Ende der Mantisse, wie es der Exponent 


‘angibt. Falls nötig hängen Sie Nullen an. 


Beispiel: 6.12345678E+08 


a) 6.12345678 b) 6.123456789, (Verschieben Sie den 


Dezimalpunkt um 8 Stellen) 


Somit erhält man: 6.12345678E+08 = 612,345,678 


Beispiel: 4E+09 
a) 4. b) 4.000000000, (verschieben Sie den Dezimalpunkt 
um 9 Stellen und fügen Sie 9 Nullen hinzu). 


Damit erhält man: 4E+09 = 4,000,000,000 


Versuchen Sie es jetzt einmal selbst: 1,2345678E+13 
A) art BY 5 00 ann nn ne un na RO TUE 15 Wan 


a) 1.2345678 b) 1.2345678000000 (Verschieben Sie den Dezimal- 
punkt um 13 Stellen). 
12,345,678,000,000 


32. Ist der Exponent negativ, brauchen wir nur die Richtung zu ändern, 
in der wir den Dezimalpunkt verschieben. 


a) Schreiben Sie die Mantisse separat. 
b) Verschieben Sie den Dezimalpunkt der Mantisse um soviele 
Stellen nach links, wie es der Exponent angibt. Falls nötig, füllen 


Sie leere Stellen mit Nullen auf. 


Beispiel: 7.9E—O6 


a) 7.9 b) .000007.9 (Verschieben Sie den Dezimalpunkt 
um 6 Stellen und fügen Sie fünf Nullen hinzu). 


Daher ist 7.9E-O06 = .0000079 
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Jetzt sind Sie an der Reihe: 1.23456E--08 
a a DB); erane nn nennen an nen a 


. ‘ee ee ae en ee ae ine 


a) 1.23456 
b) .00000001.23456 
‚00000001,23456 


33. Schreiben Sie die nachfolgenden Gleitk En: are 
Darstellung. g itkommazahlen in üblicher 


Gleitkomma 


a) 1.23456E+06 
b) 1.23456E-06 
c) 1.23456E+07 
d) 1.23456E-09 
e) 1E+11 
f) 1E-11 


übliche Schreibweise 


a... ne Drau re ie re 
... ... nn... .n.n...0. 0 TE nenne 
cu Bene rer re RE ae 
on ne re a er te rear 
ei eier ran ro 


..—0e re. 
er rt nen. 
vn en 


a) 1234560 oder 1,234,560 
b) .00000123456 

c) 12345600 oder 12,345,600 
d) .00000000123456 

e) 100,000,000,000 

f) .00000000001 


34. Schreiben Sie die nachfolgenden Zahlen in Gleitkommadarstellung 
um. 


Übliche Schreibweise 


a) 1,234,560,000 
b) .000000123456 
c) 10,000,000,000 
d) .000000001 

e) 1234567888888 


Gleitkommadarstellung 


... . 
“eenınea Bear ee el re 


f) .000001234567888888 
g) 6.02 x 1021 
h) 1.67 x 10-11 


u. CR ern re DALER ER ERDE RE ENTER 
er re A EEE U FED EEE ES 


oa war Fee te EEE EEE 850 


Anmerkung: 


Die Zahlen unter (g) und (h) sind in wissenschaftlicher Schreibweise 
angegeben. 


a) 1.23456E+09 

b) 1.23456E—07 

c) 1E+10 

d) 1E-09 

e) 1.23456788E+12 
f) 1.23456788E 06 
g) 6.02E+21 

h) 1.67E—11 


(Mantisse auf 9 Stellen abgeschnitten) 
(Mantisse auf 9 Stellen abgeschnitten) 


35. Vielleicht haben Sie schon einmal von der alten Geschichte gehört, 
in der ein weiser Mann einem reichen König einen großen Dienst 
erwiesen hat. Der König fragte ihn daraufhin, welche Belohnung ihm 
denn angemessen erscheinen würde. Die Bitte des Weisen war sehr 
einfach. Er bat nur um Weiszenkörner, deren Anzahl folgendermaßen 
berechnet werden sollte: für das erste Feld eines Schachbretts ein Korn, 
für das zweite Feld zwei Körner, für das dritte Feld 4 Körner Weizen 
usw., so daß mit jedem Feld eine Verdoppelung der Weizenmenge 
erfolgt. Die Menge wächst daher gemäß nachfolgender Aufstellung an: 


Anzahl der Weizenkörner 


1 
2 
4 
16 
32 
64 


Feld-Nummer 


SNOUWMN— 


Und so weiter. Für das Feld N ergibt sich damit eine Anzahl von 2N—1 
Körnern. Wir wollen jetzt einmal ermitteln, wieviele Körner es auf dem 





sechzehnten Feld sind. 
Wir schreiben: PRINT 2*15 (DaN=16istN-1= 15) 
Der Computer schreibt: 32768 


Jetzt sind Sie an der Reihe. Schreiben Sie ein PRINT-Statement, um zu 


ermitteln, wieviele Weizenkörner für das Feld mit der Nummer 64 be- 
nötigt werden. 


Wir schreiben: 


.e.....n.i 0. 
TEA 


9.2233704E+18 
(Das ist eine Menge Weizen!) 


Der Computer schreibt: 


PRINT 2* 63 
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ae EEE 


EINGENTEST 


Arbeiten Sie nun den nachfolgenden Eigentest durch, um festzustellen, 
wieviel Sie bis jetzt gelernt haben. 


1.In diesem Kapitel haben wir direkte Statements bentzt. Direkte 
Statements haben keine Zeilennummern. Was macht der Computer, 
wenn wir ein direktes Statement eintippen und auf RETURN 
drücken? 22222 eseeenereeesnn sera nn nenn nn nee 


a... 01011120000 ne 
25% 5 Baar ae a RR ET ER LTE ED 


2. Nehmen wir an, Sie geben ein Statement in den Computer ein und 
machen einen Tippfehler. Wie würden Sie den Fehler korrigieren? ... 


I Rue u 
RER Ra Bee UT RE ER RE ET 


agree de 
ee le Beeren sr Baar eine re eu en RE 


3.Schreiben Sie die in ATARI BASIC verwendeten Symbole für die 
folgenden arithmetischen Operationen: 


Adlon um Kara ne an an un nn u 
Subtraktion zueoceeereene nennen een nn nn nn nn 
Multiplikation z:.«+...ce00s nenn n en ener nn nenn nn nennen 
Diision ori enei n nnnnnee 
Potenzitung “usonennenenuneen rn ne 


Geben Sie in den folgenden Aufgaben an, was der Computer als Ant- 
wort auf unsere Eingabe schreibt. 


4. Wir schreiben: BITTE LOESE DIE AUFGABE AUF 
SEITE 157 
Der Computer schreibt: ..r.reneeeeeeee nenn nn nn nenn 
5. Wir schreiben: PRINT “BITTE LOESE DIE AUFGABE 
AUF SEITE 157” 
Der Computer schreibt: ....sreereeeeee nenn nenn nn nn 
6. Wir schreiben: PRINT 9*37/5+32 
Der Computer schreibt! ...2sssreeeeeeeenn nenn nenn nn 


7. Nachfolgend ist die Formel zur Umwandlung von Temperaturan- 
gaben in Fahrenheit in Celsiusgrade angegeben. 


Ale 
5(F-2 


(C = Grad Celsius, F = Grad Fahrenheit) 


Schreiben Sie ein PRINT-Statement, durch das der Computer veran- 
laßt wird, die Temperatur in Grad Celsius für 72 Grad Fahrenheit zu 
berechnen und auszudrucken. 


. re“ 


De Br Beer er ee er ee er Be ee ee ee er Er Be ee ee er er ee Er ee er Eee er ee ee EEE er 


8. Geben Sie an, was der Computer schreibt. 
PRINY "THE QUICK RED FOX JU 


SHIFT| |DELETE BACK S 


Wir schreiben: 


Der Computer schreibt: 


9. Welchen Befehl gibt das nachfolgende Statement dem Computer? 
PRINT 23 +45 


nr bee ren er re u ne ee ee le een ne ee 


NE Ha ie ae he ee eier ee ee 


10.Geben Sie an, welche der nachfolgenden mathematischen Aus- 

drücke in BASIC-Schreibweise korrekt sind. 

a) 2*3*4*5 

b) 7(8+9) 

c) 1.23 : 4.567 

d)3N\2+4”2 
Se 
3-20 rreeeresereeteneneree rennen 
f) (1 + 7/100)3 
g)2X2N2 


RE a DER ie re se 
we ie Er er ee ie 
Pour a Er Beer er er ee er er er er er ee ee 


Oyaic Wac UL ce Bar Yar Br vu Vor vor yo 7 u Sr ar u Vor ee re 


e) 


De ae a ee er ee ee er er er ee ee er er 


11. Schreiben Sie für jeden unkorrekt geschriebenen numerischen Aus- 
druck in Aufgabe 10 einen gültigen BASIC-Ausdruck. ............ 


see Laune ea ee ae rue he ae ia re ana ae 


12. Geben Sie für jeden der nachfolgenden numerischen Ausdrücke 
die Reihenfolge an, in welcher der Computer die Berechnung vor- 
nimmt, indem Sie die Zahlen 1, 2, 3 usw. in die Kreise über den 


Operations-Symbolen eintragen. 


14.Schreiben Sie jede der nachfolgenden Gleitkommazahlen in der 


üblichen Schreibweise. 





o oO 
2) 274-4 n)213*4 | Gleitkommadarstellung übliche Schreibweise 
DIE — a re a a te 
oO OO SE a ee ee 
b)2*3*4 )2*314 BSH —5—5©5—O—O—=— a rn 
DAZZSEBEEOE — a ee ne 
oo OO Be ee 
c)2*3/4 j) 23/4 BE... ni ar ee a 
OS OO 15. Schreiben Sie die nachfolgenden, in üblicher mathematischer 
d\2/3/4 k)2/3t14 | Schreibweise angegebenen Zahlen, in ATARI-BASIC Gleitkomma- 
darstellung. 
OO OO 
e)2/3*4 ) 21314 übliche Schreibweise Gleitkommadarstellung 
WISE A - ren een ern" 
OÖ O ®) O Q | BI-OONOODDOT EEE — ee ee ie 
f} 2-3*4 m) 1+2*314 DONE — a ee ee ee 
MOOS.  — —— rare a a par am 
“ie j Re ME — Sail Kirn ee 
g2+3/4 n)2*3-4 Fi DONE — ann namens nen ae an 
| EEE — a ET a er 
13. Geben Sie für jeden der nachfolgenden numerischen Ausdrücke die | HARTE 55 a a a m a nn a ne 
Reihenfolge der Operationen an, indem Sie die Zahlen 1, 2, 3 usw. in | 
die Kreise oberhalb der Operationssymbole eintragen. . | Anmerkung: 
| Die Zahlen (g) und (h) sind in wissenschaftlicher Schreibweise an- 
eben. 
oue oXe | er 
a)2+(3—4) e) (2+3)/4 | 
OO EE8 
b)2 / (3/4) f)2ar(3*4 Antworten zum Eigentest 
IR 
c)2/(3*4) g2r (314) 
| Die jeweils am Schluß der Antwort in Klammern stehenden Nummern 
oO SOOO OO beziehen sich auf die jeweiligen Abschnitte, in denen der abgefragte 
d4(2-3)*4 h)1+1/(2+1/(3+1/4)) Stoff behandelt wurde. 





| 


‚Der Computer führt das Statement aus und “vergißt‘ es dann (5). 


‚Drücken Sie die Taste DELETE BACK S um den Fehler zu be- 


seitigen und tippen Sie dann die korrekten Zeichen ein (7-9). 


. Addition + 


Subtraktion — 
Multiplikation * 
Division / 


Potenzierung A (Abschnitte 10 — 24) 


.„ERROR- BITTE LOESE DIE AUFGABE (Der Computer versteht 


nicht, was wir von ihm wollen.) (3) 


‚BITTE LOESE DIE AUFGABE AUF SEITE 157 (5 und 6) 
. 98.6 (Abschnitte 16 — 24) 
„PRINT 5/9*(F-32) oder PRINT (5/9)*(F—32). Haben Sie sich an 


den Stern erinnert? Übrigens wäre auch die Antwort PRINT 
5*(F-32)/9 richtig gewesen. (Abschnitte 20 — 23) 


‚Nur der Cursor ist zu sehen. Die ganze Zeile ist gelöscht (Abschnitt 9). 


‚ Berechne den numerischen Ausdruck 23+45 und gebe das Ergebnis 


aus. Der Computer addiert 23 und 45, was 68 ergibt und zeigt 
(druckt) auf dem Bildschirm 68 (Abschnitt 10) an. 


10. Die Ausdrücke (a), (d) und (g) sind gültig. In (g) berechnet der 


Computer den Ausdruck 2% 2/\ 2 folgendermaßen: 
2A2NA2=4N2=16 
Mit anderen Worten, der Computer arbeitet den Ausdruck von 


links nach rechts ab, als wenn er lauten würde: (2 X 2) ”\2 (Ab- 
schnitte 24 — 26). 


11.b) 7*(8+9) 


c) 1.23/4.567 
e) 1/(37—29) 


f) (1+7/100) X 3 (Abschnitte 16 — 26) 





g92+3/4 
(Abschnitte 16 — 25) 


13. 
a)2+(3—-4) 


® ® 
b)2/(3/4) 


@ © 
c)2/(3*4) 


0) 
d)\(2-3)*4 


(Abschnitte 16 — 25) 


e) (2+3)/4 
® © 
f)21(3*4 
Od ® 
gy21t (314) 


® @O @ © 


h)1+1/(2+1/(3+1/4)) 
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14.a) 123,456 
b) .0000123456 
c) 123,456,000 
d) .0000000123456 
e) 1,000,000,000,000 
f) .000000000001 


15. a) 1.23456E+12 
b) 1.23456E—09 
c) 1E+10 
d) 1E-10 
e) 1.23456789E+10 
f) 1.23456789E-06 
g) 6.02E+23 
h) 1.67E—21 


(Abschnitte 29 — 34) 


(Abschnitte 29 -- 34) 


Kapitel 3 


Zuordnungs-Statements, gespeicherte Programme, Verzweigung 


Dieses Kapitel soll Sie mit einigen der wichtigsten BASIC-Statements 
vertraut machen. Von jetzt an können wir mit interessanteren Pro- 
grammen arbeiten, um die vielseitigen Anwendungsmöglichkeiten 
Ihres ATARI-Computers zu demonstrieren. 


In diesem Kapitel werden Sie die Funktionen und das Format der 
nachfolgend angeführten Statements und Kommandos kennenlernen: 


LET, INPUT, GO TO, PRINT, REMARK 
NEW, RUN, LIST 


Statements 
Kommandos 


Sie werden auch lernen, wie man Programme für automatische und 
wiederholte Ausführung speichern kann. Desgleichen werden Sie 
Variable kennenlernen und anschließend in der Lage sein, Variablen, 
die in BASIC-Programmen verwendet werden, Werte zuzuordnen. Nach 
Abschluß dieses Kapitels können Sie ......... 


® Programme schreiben, in denen den Variablen durch LET- oder 
INPUT-Statements Werte zugewiesen werden; 


© zwischen numerischen und String-Variablen unterscheiden und 
beide benutzen; 


® Programme schreiben, in denen ein Wert durch einen BASIC- 
Ausdruck berechnet und einer numerischen Variablen in einem 
LET-Statement zugeordnet wird; 


© ein BASIC-Programm im Speicher des Computers speichern; 


© ein unerwünschtes Programm aus dem Computer-Speicher löschen, 
ein zur Zeit im Computer befindliches Programm auflisten und 
ein Programm ausführen lassen (RUN); 


© Statements in einem gespeicherten Programm editieren, korri- 
gieren und löschen; 
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© Programme schreiben, die GO TO Statements benutzen, um einen 
Teil eines Programms zu wiederholen oder ein Programmstück zu 
überspringen. 


© REMARK-Statements benutzen, um Programme für den Menschen 
leichter lesbar und verständlicher zu machen; 


e PRINT-Statements schreiben, die ausgedruckte Ergebnisse durch 
zusätzliche erklärende Mitteilungen kenntlich machen; 


1. Um das Prinzip der Variablen und die Funktion des LET-Statements 
in BASIC zu verdeutlichen, stellen Sie sich vor, daß innerhalb des 
Computers 26 kleine Kästchen vorgesehen sind. Jedes kann zu jedem 
Zeitpunkt eine einzige Zahl enthalten. 


N << x = < 


Wir haben in einigen Kästchen bereits Zahlen gespeichert. Beispielsweise 
befindet sich eine 7 in der Schachtel A und eine 5 in der Schachtel B. 


a) Welche Zahl befindet sich in Schachtel F? ....:.»zesc scene 0. 
BIER 3 5 se u an nenn a nn nr RER ET HE 
c) -6 befindet sich in Schachtel ...... «rss eereernnnnnenennn 
d) 2.5 befindet sich in Schachtel ... u EEERER Di ga Hamann au ma 
e) Welches Kästchen enthält eine Gleitkommazahl? ......-ssrr sr... 


a) 2 b) 4 c)S 
e) P (Die Gleitkommazahl lautet 4E+09). 





2.Die Kästchen C und N sind anschließend einzeln dargestellt. Be- 
nutzen Sie einen Bleistift, um folgende Aufgaben durchzuführen: 


a) "Legen‘’ Sie eine 8 in Schachtel C. Mit anderen Worten, schreiben Sie 
die Ziffer ‘8° in die mit ‘'C’’ bezeichnete Schachtel. Führen Sie 
diesen Schritt aus, bevor Sie zu (b) weitergehen. 


b) "Legen Sie 12 in N. Führen Sie diesen Schritt aus, bevor Sie zu (c) 
weitergehen, 


c) “Legen” Sie 27 in N. Halt! Eine Schachtel kann zu einem bestimmten 
Zeitpunkt nur eine Zahl enthalten. Bevor Sie 27 in N eingeben 
können, müssen Sie daher zuerst die 12 löschen, die Sie zuvor ein- 
gegeben haben. 


|] NL] 
Füllen Sie die Kästchen aus, bevor Sie sich die Antwort ansehen, 


3. Wenn der Computer eine Zahl in eine der Schachteln hineinlegt, 
löscht er automatisch den bisherigen Inhalt dieser Schachteln, genau 
so wie Sie es getan haben. Um 27 in N zu legen, haben Sie zuerst den 
bisherigen Inhalt 12 ausradiert. 


Wir nennen A,B,C,....Z Variable. Die Zahl in der Schachtel A ist 
der Wert von A, ebenso die Zahl in Schachtel B der Wert von B usw. 


Um den Computer anzuweisen, “eine Zahl in eine der Schachteln zu 
legen‘, verwenden wir das LET-Statement. Um es etwas technischer 
auszudrücken sagen wir, daß wir einer Variablen einen numerischen 
Wert zuordnen. 


Wir schreiben: 
Wir schreiben: 


LET A=7 (”Lege” 7 in Schachtel A.) 
PRINT A (Drucke den Inhalt von Schachtel A) 
Der Computer schreibt: 7 
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In diesem Programm ist ......» die Variableund.......- der Wert, 
der ihr durch das LET-Statement zugeordnet wurde. 


4. Vervollständigen Sie bitte folgende Zeilen: 


a) Wir schreiben: LET X = 23 
PRINT X 
Der Computer schreibt: «++. een nennen 
b) Wir schreiben: LETZ=-—1 
PRINT Z 
Der Computer schreibt: ++ rennen nn 
c) Wir schreiben: LETA= 
LETA=2 
PRINTA 
Der Computer schreibt! er ereerennnnennnnnnnnnt 
d) Wir schreiben: LETD=7 
LETW=D 
PRINT W 


Der Computer schreibt: 


: wa a ae a RE ra EN 


b) —1 

c)2 (Das Statement LET A = 2 ersetzt den zuvor durch LET A=1 
zugewiesenen Wert.) 

d)7 (LET W = D überträgt den Wert von D in W. Der Weg befindet 
sich jedoch auch immer noch in D.) 


5, Schreiben Sie ein LET-Statement, um P den Wert 3.14 zuzuordnen 
sowie ein PRINT-Statement, um den Wert von P auszudrucken. 


Wir schreiben: 


ara are FE 


Der Computer schreibt: 


LET P=3.14 
PRINT P 
3.14 


Anmerkung: 


In ATARI BASIC kann das Wort LET auch weggelassen werden. Bei- 


spielsweise können wir auch P=3.14 an Stelle von LET P=3.14 schrei- 
ben. 


6. Sobald wir einer Variablen einen Wert zugewiesen haben, können wir 
sie in mathematischen Ausdrücken verwenden. 


Wir schreiben: LETA=7 
LETB=5 
Wir haben jetzt eine 7 in “Schachtel’’ A und eine 5 in “Schachtel” B. 


Wir schreiben: PRINTA+B 
Der Computer schreibt: 12 (DaA=7u.B=5ist A+B = 7+5 = 12) 


Wir schreiben: PRINTA-B 
Der Computer schreibt: 2(DaA=7u.B=5, ist A-B = 7-5 =2) 
Jetzt vervollständigen Sie die folgenden Zeilen: 


Wir schreiben: PRINT A*B 
Der'Compduterschtebt iu 500 vaia  aeR  Franaah de ler 
Wir schreiben: PRINT A/B 


Der Computer schreibt: 


Dr 21 re ID ED Ei ir ED DIET FT 


7. Bei den Variablen, die wir bis jetzt benutzt haben, handelt es sich um 
die sogenannte numerische Variable. Der einer numerischen Variablen 
zugeordnete Wert muß eine Zahl sein. 


BASIC kennt aber noch eine andere Variablen-Type, die als String- 
Varialbe bezeichnet wird. Der einer String-Variablen zugeordnete Wert 
muß ein String sein, also eine Folge von Zeichen. Eine String-Variable 
ist durch einen Buchstaben gekennzeichnet, dem ein Dollar-Zeichen ($) 


angehängt ist. 


Bevor wir String-Variable benutzen, müssen wir dem Computer zu- 
nächst mitteilen, wie lang der String sein wird. Das heißt, wir müssen 
ihm sagen, wieviel Speicherplatz er zur Aufnahme des Strings bereit- 
stellen muß. Wir benutzen dazu das DIM-Statement (Dimension-State- 
ment). Beispielsweise weist das folgende DIM-Statement den Computer 
an, Speicherplatz für einen String mit einer Länge von bis zu 5 Zeichen 
bereitzustellen. 


DIM N3(6) 
READY 


Wir schreiben: 
Der Computer schreibt: 


Wir haben dem Computer damit mitgeteilt, daß eine String-Variable mit 
der Bezeichnung N$ eine Länge von bis zu 5 Zeichen haben kann. 


Wir schreiben: LET NS = "JERRY" 
Damit wird der String-Variablen N$ der Wert JERRY zugeordnet. 


Nd JERRY 


Jetzt wollen wir den Wert von N$ ausdrucken. 


PRINT NS 
JERRY 


Wir schreiben: 
Der Computer schreibt: 


Vervollständigen Sie jetzt bitte folgende Zeilen: 


DIM Z$(100) 

LET Z8 = MEIN BENUTZER 
VERSTEHT MICH” 

PRINT Z$ 


Wir schreiben: 


MEIN BENUTZER VERSTEHT MICH 
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Unser DIM-Statement ließ Platz für bis zu 100 Zeichen reservieren. 
Der tatsächliche String ist in diesem Beispiel allerdings kürzer als 100 
Zeichen. Wesentlaich ausführlicher werden Strings in Kapitel 9 be- 
schrieben. 


8. Jetzt wollen wir uns mit einem anderen Problem befassen. Wir haben 
drei Fahrräder mit Raddurchmessern von 16—, 24— und 26 Zoll. Von 
jedem Rad möchten wir wissen, welchen Weg es bei einer Umdrehung 
zurücklegt. Diese Strecke ist natürlich der Umfang des Rades. Wir 
wollen im Folgenden D für den Durchmesser und C für den Umfang des 
Rades verwenden. 


C=rD D 


Wir werden uns mit 3.14 als einer groben Annäherung für m begnügen. 
Das beschriebene Problem läßt sich auf folgende Weise lösen: 


wobei r = 3.14159.. .... ist. 


Wir schreiben: 
Der Computer: 


PRINT 3.14*16 
50.24 


Wir schreiben: 
Der Computer: 


PRINT 3.14*24 
75.36 


Wir schreiben: 
Der Computer: 


PRINT 3.14*26 
81.64 


Es gibt aber noch eine weitere Möglichkeit, um diese Berechnung auszu- 
führen. Füllen Sie dazu in den folgenden Zeilen die freien Stellen aus: 


Wir schreiben: LETD=16 
PRINT 3.14*D 
Der Computer: 50.24 
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Wir schreiben: LETD=24 
PRINT 3.14*D 


Dar Computer! u: ass women nr nn ER 


Wir schreiben: LET 42: een nn uns BAER N a a re 


Der Computer: 81.64 


D=26 
PRINT 3.14*D 


9. Jetzt sind wir in der Lage, den großen Schrittt von einzelnen, direkt 
ausgeführten Statements zu einem gespeicherten Programm zu machen. 
Wir wollen das folgende Programm im Speicher unseres Computers 


ablegen. 


10LETD=16 
20 PRINT 3.14 * D 


Dieses Programm besteht aus zwei Statements, jedes in einer einzelnen 
Zeile. Jedes Statement beginnt mit einer Zeilennummer. In unserem 
Beispiel sind es die Zahlen 10 und 20. Eine Zeilennummer kann eine 
beliebige ganze Zahlzwischen 1 und 32767 sein. 


Wenn wir Statements mit Zeilennummern schreiben, werden sie beim 
Drücken von RETURN zunächst nicht ausgeführt. Stattdessen werden 
die Statements im Speicher des Computers für spätere Ausführung 
untergebracht. 


Wie Sie im Kapitel 2 gelernt haben, werden Statements ohne Zeilen- 
nummern als direkte Statements bezeichnet. Der Computer führt ein 
direktes Statement sofort aus und “vergißt’ es anschließend. Dies 
geschieht jedoch nicht, wenn wir ein Statement mit einer Zeilennummer 
schreiben. Was geschieht statt dessen?.....cseesee seen ne nn nn nn 


Das Statement wird für spätere Ausführung im Speicher des Computers 
abgelegt. Das heißt, der Computer “erinnert‘ sich dann an das State- 
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ment. 


10. Die Zeilennummern geben dem Computer die Reihenfolge an, in 
der er den Statements im Programm folgen soll. Dabei ist es nicht er- 
forderlich, daß die Zeilennummern aufeinanderfolgende ganze Zahlen 
wie 1, 2,3, 4, 5 usw. sind. Es ist vielmehr üblich, in Zehnerschritten zu 
numerieren, wie wir es auch im folgenden Programm tun. Wir können 
dann, sofern wir es wünschen, später leicht ein oder mehr Statements 
in das Programm zwischen bereits bestehende Statements einfügen. 


10 LETD= 16 
20 PRINT 3.14 * D 


Wie viele zusätzliche Zeilen könnten zwischen Zeile 10 und Zeile 20 
BINGEFUGE WERFEN 5: sie ae men neuen 0:6 aiasntete 8 wisse niet 


9 (Zeilen 11, 12, 13, 14, 15, 16, 17,18, 19) 


Natürlich müssen Sie die Numerierung nicht in Zehnerschritten vor- 
nehmen. Sollten Sie Abstände von 13, oder 5 oder sonst einer Zahl 
vorziehen, dann tun Sie das ruhig. Es ändert prinzipiell nichts. 


11. Bevor wir ein Programm speichern, müssen wir zunächst alle alten 
Programme entfernen oder löschen, die sich evtl. bereits im Speicher 
des Computers befinden. 


Wir schreiben: NEW (Und drücken natürlich auf RETURN !) 
Der Computer: READY 


Der Computer hat damit den Bereich eines Speichers gelöscht, der 
BASIC-Programme aufnimmt. Er ist jetzt zum Speichern neuer Pro- 
gramme bereit. 


Wie löschen oder entfernen wir ein altes Programm aus dem Computer- 
DIRT 0 un a ae ae Er een ae ER 


Wir schreiben NEW und drücken auf die RETURN-Taste. 


Sollten wir uns bei der Eingabe von NEW verschreiben, erhalten wir 
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eine Fehler-Meldung, beispielsweise: 


Wir schreiben: GNU 
Der Computer: ERROR—- GNU a 


Unser Computer mag offensichtlich keine Gnus, aber wenn wir jetzt 
NEW richtig eintippen und auf RETURN drücken, ist wieder alles in 


Ordnung. 


12. Jetzt sind wir in der Lage, unseren Programm-Zweizeiler aus den 
Abschnitten 9 und 10 zu speichern. 


Zuerst müssen wir alle alten Programme löschen, indem wir ........- 

schreiben und die Taste RETURN betätigen. Um das Programm zu 
speichern, schreiben wir zunächst die erste Zeile, bzw. das erste State- 
ment und betätigen dann die RETURN-Taste. Anschließend schreiben 
wir die zweite Zeileund .......ssssssereeesene nern nenn nn ne 


NEW; betätigen die RETURN-Taste 


13. Versuchen wir das einmal. 


Wir schreiben: NEW 
Der Computer: READY 
Wir schreiben: 10 LETD=16 
20 PRINT 3.14 *D 


Wenn wir einen Tippfehler machen, beseitigen wir ihn in der schon ge- 
wohnten Weise. Das Programm ist jetzt gespeichert, und der Computer 
wartet geduldig auf unser nächstes Statement oder Kommando. 


Hmmm .... ‚ob das Programm wohl wirklich im Computer gespeichert 
ist? Wir können das herausfinden, indem wir LIST eintippen und die 
Taste RETURN betätigen. 


Wir schreiben: LIST und betätigen RETURN 
Der Computer: 10LETD=16 

20 PRINT 3.14 * D 

READY 
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Das Kommando LIST fordert den Computer also auf, alle gegenwärtig 
gespeicherten Statements auszudrucken. Nach dem Auflisten des Pro- 
gramms meldet er READY, um uns zu sagen, daß wir wieder an der 
Reihe sind. Wenn kein Programm gespeichert ist, schreibt der Computer 
nur READY. 


Wie können wir den Computer dazu auffordern, das gegenwärtig in 
seinem Speicher befindliche Programm auszudrucken? 


U Du u 12 Be 9 ey er) 


na Van nee een ee eeeeeeeen ee 


Wir schreiben LIST und drücken die Taste RETURN 


14. Das Auflisten eines BASIC-Programmes zeigt uns, ob sich ein Pro- 
gramm im Speicher des Computers befindet oder nicht. Vielleicht 
wollen wir weitere Statements zu dem Programm hinzufügen, oder uns 
ansehen, ob wir die Statements korrekt geschrieben haben. 


Wenn wir möchten, daß der Computer das Programm ausführt, schrei- 
BEHWIR es nane Wünschen wir, daß der Computer mitteilt, ob 
in seinem Speicher ein Programm untergebracht ist, und er das Pro- 
gramm ausdrucken soll, dann schreiben wir 


RUN; LIST 


15. Nachdem Sie RUN eingegeben haben, um den Computer aufzu- 
fordern, das Programm auszuführen, bzw. nachdem Sie LIST einge- 
tippt haben, um dem Computer zu befehlen, uns mitzuteilen, was 
sich in seinem Speicher befindet, müssen Sie noch etwas tun, damit der 
Computer antwortet, und zwar? 


Die Taste RETURN drücken. 


16. Nehmen wir einmal an, Sie haben unser kleines Programm in den 
Computer eingegeben. Jetzt möchten Sie es ausführen. Schreiben Sie 
RUN und drücken Sie auf RETURN. 


Wir schreiben: RUN und drücken auf RETURN. 
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50.24 
READY 


Der Computer: 


Der Computer hat das Programm damit ausgeführt und die einzelnen 
Statements in der Reihenfolge ihrer Zeilennummern abgearbeitet. 
Zuerst wurde der Computer dazu aufgefordert, einer Variablen mit dem 
Statement 10 LET D=16 einen Wert zuzuordnen. Das bedeutet, daß der 


Computer den Wert .......rrsrcnee. in die ‘‘Schachtel‘’ gelegt hat, 
die durch die Variable ..........- gekennzeichnet ist. 
16; D 


17. Nachdem er die Anweisungen im Statement mit der Zeilennummer 
10 ausgeführt hat, wendet sich der Computer dem Statement mit der 
nächst höheren Zeilennummer zu: 20 PRINT 3.14*D. Ein Teil dieser 
Zeile fordert den Computer auf, zwei Zahlen miteinander zu multi- 
plizieren. Eine davon ist direkt in dem Statement angegeben. Die 
andere Zahl ist an einem Platz gespeichert, der durch die Variable D 
gekennzeichnet ist. Um welche beiden Zahlen handelt es sich, die der 
Computer multiplizieren soll? ......reeeeceeeeeennn nenn nn 


3.14 und 16, da 16 der Wert von D ist. 


18. Im letzten Abschnitt haben wir gesehen, daß ein Teil von Zeile 
20 den Computer auffordert, zwei Zahlen miteinander zu mulitpli- 
zieren. Welchen Befehl gibt Zeile 20 dem Computer außerdem? ...... 


a a meet er EEE een a re er em ae MANNES 


Das Ergebnis der Multiplikation auszudrucken. 


Anmerkung: 

Einige Computer benötigen am Ende eines Programms ein END-State- 
ment, wie es nachfolgend gezeigt wird. Der ATARI-Computer benötigt 
END nicht, Sie können es jedoch nach Belieben vorsehen. 


10LETD=16 
20 PRINT 3.14 * D 
30 END 


19.Wir wollen uns jetzt noch einmal ansehen, was alles geschieht, 
wenn wir unser kleines Programm zur Berechnung des Umfangs eines 
Fahrradreifens benutzen. 


NEW Zuerst löschen wir alle alten Programme 

READY 

10LETD=16 Dann schreiben wir dieses Programm, das 

20 PRINT 3.14 * D aus zwei Statements besteht. 

LIST Als nächstes fordern wir den Computer 
auf, das Programm aufzulisten. 

10LETD= 16 Der Computer listet das Programm auf 

20 PRINT 3.14 * D (druckt es aus). 

READY Dann schreibt er READY und hält an. 


RUN Schließlich fordern wir den Computer 
auf, das Programm abzuarbeiten. 


50.24 
READY 


Er führt das Programm aus, 


schreibt dann wieder READY auf den 
Bildschirm und hält an. 


Das Programm ist jetzt immer noch im Speicher des Computers vor- 
handen. Was wird geschehen, wenn wir erneut RUN eintippen? ....... 


DEE Br Br u Er 
Dee Bu Bar a BE er a ee er er er ee ee er ee er Se ee Be er er ee ee er er er ee er 
a. nr Trennen 


Der Computer führt das Programm nochmals aus. Da im Programm 
nichts geändert wurde, gibt der Computer das gleiche Ergebnis wie zu- 
vor aus (50.24). 


20.\Was geschieht, wenn wir bei der Eingabe des Programms einen 
Fehler machen? 


Wir schreiben‘ 10LETF=16 Wir haben also F anstatt D ge- 


20 PRINT 3.14 * D schrieben. 
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Wir schreiben: RUN 


Der Computer: O0 Hoppla! Da ist etwas falsch ge- 
laufen. Sehen wir uns doch 


noch einmal das Programm an. 
Wir schreiben: LIST 
10 LETF=16 Da ist es ganz deutlich zu sehen: 
20 PRINT 3.14 * D wir haben in Zeile 10 versehent- 
lich auf F statt D getippt. 
Wir schreiben Zeile 10 jetzt 


nochmals richtig. Sie ersetzt die 
alte Zeile 10. 


Der Computer: 


Wir schreiben: 10 LETD= 16 


Wir schreiben: LIST 


10LETD=16 Dadurch vergewissern wir uns, 
20 PRINT 3.14 *D daß die alte Zeile 10 tatsächlich 

durch die neue Zeile ersetzt 
wurde. Dabei sehen wir auch gleichzeitig, ob unsere Eingabe diesmal 
richtig war. 


Der Computer: 


Nehmen wir einmal an, wir hätten den Fehler sofort nach dem 
Schreiben erkannt. Wie hätten wir ihn korrigieren können? ........:»- 


Wir hätten DELETE BACK S drücken und dann den richtigen Buch- 
staben eingeben können. 


21. Wir wollen einmal annehmen, unser Programm zur Umfangsbe- 
rechnung sei immer noch im Speicher vorhanden. jetzt möchten wir 
aber gern den Wert ändern, der D zugewiesen ist. Dazu ersetzen wir 
Zeile 10 durch eine neue Zeile 10. Nachdem wir diese Änderung vor- 
genommen haben, listen wir das Programm auf. 


Wir schreiben: 10 LETD=24 
LIST 
Der Computer: 10LETD=24 Hier sehen Sie die neue Zeile 10, 


20 PRINT 3.14 * D sowie die unverändert gebliebene 
alte Zeile 20. 


nr EDEN ET TTS TTTTERT 


Wir schreiben eine neue Zeile mit der Nummer derjenigen Zeile, die wir 
ersetzen wollen. 


Anmerkung: 


Wir geben nicht NEW ein, da wir möchten, daß Zeile 20 im Speicher 
stehen bleibt, während wir nur Zeile 10 ändern. NEW würde das 
Löschen beider Statements im Computer-Speicher bewirken. 


22. Wir wollen jetzt einmal das modifizierte Programm ablaufen lassen. 


Das Wort READY soll von jetzt ab 
in diesem Buch weggelassen werden. 


Wir schreiben: RUN 
Der Computer: 75.36 


Jetzt sind Sie an der Reihe. 


10LETD=26 
LIST 


E Iaee Baer ee Be Br re er Br ee ee er er er Be ee a er ee er ee 


Wir schreiben: 


Der Computer: 


Dee ee er ae er ee er Be ee er er Be a er ae er a ee ee ee er ee er ee ee ee re 


Wir schreiben: RUN 
Der Computer: 


Dr a Ri Er a VER Te ee 


10LETD=26 (neue Zeile 10) 
20 PRINT 3.14 *D (alte Zeile 20) 
81.64 


23. Wie schnell wächst Ihr Sparguthaben an? 

Wir haben folgendes Problem vorliegen: Wir zahlen P DM auf ein 
Sparkonto ein, für das wir R% Zinsen im Jahr erhalten, die jährlich 
berechnet werden. Wieviel Geld haben wir nach dem Ablauf von N 
Jahren auf unserem Sparbuch? 


Hier sind noch einmal alle verwendeten Größen zusammengestellt: 
P Anfangskapital 
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R jährlicher Zinsfuß in % 
N die Anzahl der Jahre 
A Sparkapital und Zinsen nach N Jahren 


Die Berechnung von A erfolgt mit der nachstehend angegebenen 
Formel: 

A =P(1 + R/100)N 
Mit dieser Beziehung kann A, bei gegebenem P, R und N ermittelt 
werden. 


Anschließend sehen Sie ein Programm zur Berechnung von A für P = 
1000 DM, R = 6% und N = 3 Jahre. Vervollständigen Sie Zeile 40 in 
korrekter BASIC-Schreibweise, unter Verwendung der oben ange- 
gebenen Formel. 


10 LET P = 1000 
20LETR=6 


HDLEI AR anna ia ann un ne nn ne EN ED 


P*(1+R/100) * N 


(Haben Sie sich an den Stern und das Zeichen A für die Potenzierung 
erinnert?) 


24.Wir wollen das Programm jetzt speichern und ablaufen lassen. 
Anschließend sollen Sie einige Änderungen vornehmen. 


Wir schreiben: NEW 


Anmerkung: 


Bitte denken Sie daran, daß wir in Zukunft das an dieser Stelle vom 
Computer angegebene READY weglassen wollen. Außerdem ist 
allmählich wohl auch der weitere Hinweis auf das Betätigen der Taste 
RETURN nach der Eingabe von Statements oder Kommandos wie 
RUN, LIST oder NEW überflüssig. 


10 LET P = 1000 


20LETR=6 
30LETN=3 
40 LET A = P*(1+R/100) AN 
50 PRINTA 
RUN 
Der Computer: 1191.01596 


Geben Sie jetzt an, wie Zeile 30 für N=5 geändert werden muß. 


Wir schreiben: 


-— org rin ER Ha EA nen re ie 


Der Computer: 1338.22554 Wert von A für P=1000, R=6, N=5 


30LETN=5 


25. Ändern Sie jetzt das Programm so, daß R=7% und N=8 Jahre ist. 


Wir schreiben: 


.... a... nenne erlernen“ 


Eh ne a ne U TEE LEE De EEE DU 


RUN 
Der Computer: 1718.19 
20 LET R=7 
30 LET N=8 


26. Schreiben Sie jetzt einmal auf, was der Computer ausgibt, wenn wir 
LIST eintippen. 


Wir schreiben: LIST 
Der Computer: 


CO HATTE RE a u a re re le een 
oma u VER N VEREIN ER EEE A a rs 
Eh Va re red er ee oe re 
Du ra RER a A ES ER IE U I ie a Feier 


ea ee area hier ee hau 


10 LET P=1000 
20 LET R=7 
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30 LET N=8 
40 LET A=P*(1+R/100) AN 
50 PRINTA 


27. LET-Statements sind ja gut und schön, aber wie umständlich ist es 
doch, jedesmal alle Zeilen neu eintippen zu müssen, wenn man die 
Werte der Variablen ändern möchte. Zum Glück bietet BASIC uns mit 
dem INPUT-Statement eine sehr gute Lösung für dieses Problem. 


Das INPUT-Statement ermöglicht es dem Computer-Benutzer, bei 
jedem Lauf des Programms den Variablen unterschiedliche Werte zuzu- 
weisen, ohne daß das Programm selbst modifiziert werden müßte. Wenn 
der Comuter im Programm auf ein INPUT-Statement trifft, schreibt er 
ein Fragezeichen auf den Bildschirm und wartet darauf, daß der Be- 
nutzer für eine Variable einen Wert eingibt. Nachfolgend finden Sie ein 
Beispiel dafür. 


Wir schreiben: NEW Zuerst löschen wir alle alten Pro- 


10 INPUT A gramme, und geben das neue ein. 
20 PRINT A Der Computer wird durch RUN 
RUN zur Ausführung aufgefordert. 
Der Computer: ? = Er gibt ein Fragezeichen aus, 
schaltet den Cursor ein und wartet 
dann. 


a ac ee Bee Ne u re ER IT Te © 


Er druckte ein Fragezeichen und wartete darauf, daß wir etwas tun. 


Anmerkung: 


Das Fragezeichen ist eine Möglichkeit eine Aufforderung an den Be- 
nutzer zu richten. Der Compuer gibt eine derartige Aufforderung aus, 
um uns mitzuteilen, daß wir an der Reihe sind, etwas zu tun. Die 
Meldung READY ist ein anderes Beispiel für eine Aufforderung. 


28. Das INPUT-Statement veranlaßt den Computer, ein Fragezeichen zu 
drucken, dann anzuhalten und zu warten. Er wartet auf einen Wert, 


den er der Variablen zuweisen kann, die im INPUT-Statement erscheint. 
Computer sind sehr gedultig. Wenn wir nicht mit ihm zusammen- 
arbeiten, indem wir einen Wert eintippen, dann wartet er, und wartet 
und wartet.... 


Arbeiten wir daher mit unserem stets geduldigen Computer zusammen 
und geben einen Wert für A ein. Wir wollen jetzt 3 für den Wert ein- 
tippen, der A zugeordent werden soll und drücken anschließend auf 
RETURN. Der Computer legt dann den von uns eingegebenen Wert 
in Schachtel‘ A und fährt mit dem Programm fort. 


NEW 

10 INPUT A 
20 PRINT A 
RUN 

23 

3 


Nachdem wir 3 als Wert für A eingegeben und dann auf RETURN 
gedrückt hatten, ging der Computer weiter zu Zeile 20 und druckte 
unseren Wert aus, 


Nach der Eingabe von RUN und Betätigen der RETURN-Taste druckte 
der Computerein ........ Wir haben dann 3 eingetippt, den Wert für 
unsere Variable..... Der Computer führte anschließend das PRINT A 
Statement (Zeile 20) aus und druckte den ... 2.222222 von A. 


Fragezeichen; A; Wert 


29. Das Programm kann man anschließend nochmals mit einem neuen 
Wert für A laufen lassen. Tun Sie einmal so, als wären Sie der Computer 
und geben Sie an, wie ein Programm-Lauf aussehen würde, wenn Ihr 
menschlicher Computer-Benutzer 23 als Wert von A eingibt. 


.er nenne 
Baba ar DET SE ee Var Sur u ar are TErBer Yc jur nr Ver a ir er TEL ae er er var ar Ye Te ee er 


Tree.“ 
m. ............e..mm.—......On. 
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?23 
23 


30.Wir wollen jetzt ein INPUT-Statement dazu verwenden, um die 
Daten für das uns schon vertraute Fahrrad-Problem einzugeben. Mit 
Daten werden im allgemeinen Informationen bezeichnet, die von einem 
Computer-Programm benutzt werden. 


Wir schreiben: NEW 
10 INPUT D 
20 PRINT 3.14*D 
RUN 

Der Computer: ? 


Der Computer möchte von uns einen Wert für den Durchmesser D des 
Rades. Anschließend wird er die Strecke berechnen, die bei einer 
Umdrehung des Rades zurückgelegt wird und sie ausdrucken. Wir 
wollen diese Berechnung für Durchmesser von D=16, D=24 und D=26 
durchführen. 


Zuerst lassen wir das Programm für D=16 ablaufen. 
RUN 


?16 
50.24 


Als der Computer ein Fragezeichen druckte, haben wir 16 als Wert von 
D eingegeben. Der Computer berechnete und druckte 3.14*D und hielt 
dann an. 


Jetzt tippen wir noch einmal RUN ein. Wenn der Computer wieder ein 
Fragezeichen ausgibt, tippen wir anschließend 24 als Wert für D ein. 


RUN 
?24 
75.36 


Der Comuter führt die Berechnung aus, zeigt das Ergebnis auf dem Bild- 
schirm an und stoppt. 


Jetzt sind Sie an der Reihe. Vervollständigen Sie den dritten Programm- 


Lauf. 


Pr a ar Vor vor Vor vor ur Dar Bu Dr vor Dur Doc ur vr Du Bor Dr Sr yuL Br Dur SL Br BE Bor Dur Dar Ber Sur Er Bar EL Ba Sr Br SE Sur zer ze 


a year ve Me 2 we u u er) 
SE a ae ee see ee ee 


31. Ein IPUT-Statement kann auch dazu verwendet werden, zwei oder 
mehr Variablen Werte zuzuweisen. 


10 INPUT A,B (zwei Variable A und B) 

20 PRINT At+tB 

RUN 

® 7.5 (zwei Werte, 7 und 5) 
12 


Als der Computer ein Fragezeichen druckte, haben wir zwei durch ein 
Komma getrennte Zahlen eingetippt und dann die Taste RETURN be- 
tätigt. Der Computer wies die erste Zahl der Variablen A als Wert, die 
zweite der Variablen B zu. Beachten Sie bitte folgende, wichtigen Hin- 
weise: 


10 INPUT A,BB<<—kein Komma hinter der letzten 
Variablen 
kein Komma hier 


das Komma trennt die Variablen A und B 


RUN 
27,5 &—— kein Komma nach der letzten Zahl 


Komma zwischen den beiden Zahlen 


Der Wert 7 wird der Variablen A, der Wert 5 der Variablen B zuge- 
ordnet. 


Bitte füllen Sie in der folgenden Zusammenstellung die leeren Stellen 
aus: 
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Wenn ein Programm abläuft, das ein INPUT-Statement enthält, wird die 
nach Erscheinen des Fragezeichens zuerst eingegebene Zahl der. ...... 
Variablen im INPUT-Statement zugeordnet; der ...... vom Benutzer 
eingetippte Wert wird der zweiten Variablen im INPUT-Statement zu- 
gewiesen usw. Beide Variablen im INPUT-Statement des Programms 
und die vom Benutzer beim Lauf des Programms eingetippten Werte 
müssen durch ..... sum + + getrennt werden. 


ersten; zweite; Kommas 


32. Hier sehen Sie einen weiteren RUN des Programms in Abschnitt 
31. Jetzt wollen wir jedoch die Zahlen 73 als Wert von A und 59 als 
Wert von B eingeben. 


RUN 

278 Zu dumm! Jetzt haben wir versehentlich zu früh die 
Taste RETURN getrückt! 

?’m 


Der Computer gibt ein weiteres Fragezeichen aus und schaltet den 
Cursor ein. Das soll bedeuten: “Haben Sie nicht etwas vergessen?’ 
Wir können den Programm-Lauf dann durch Eingabe der zweiten Zahl, 
dem Wert von B vervollständigen. 


RUN 
? 73 
? 59 

132 


Was geschieht, wenn wir nicht für jede Variable in einem INPUT-State- 
ment einen numerischen Wert eintippen? ........-rcerereeeren ne 


Der Computer gibt ein weiteres Fragezeichen aus. 


Anmerkung: 


Wenn Sie mehr Zahlen eingeben, als Variable vorhanden sind, ignoriert 
der Computer die restlichen Werte. 


33. Nehmen wir einmal an, Sie stehen mit Ihren Freunden, lauter be- 
geisterten Fahrradfahrern, um Ihren Computer herum und alle be- 
wundern Ihre neuen Programmierkünste. Sie beschließen, Ihren 
Freunden zu demonstrieren, wie der Computer arbeitet. Dazu wollen 
Sie das Programm zur Berechnung des Umfanges eines Fahrradreifens 
benutzen. Das umständliche dabei ist jedoch, daß Sie für jeden Ihrer 
Freunde einen eigenen Programmlauf durchführen müssen. Daher 
halt! Fügen Sie zu Ihrem Programm erst ein neues Statement hinzu. 


10 INPUT D 

20 PRINT 3.14*D 
30 GO TO 10 Das ist etwas Neues - das GO TO-Statement. 
In BASIC fordert ein GO TO-Statement den Computer auf, zu der 
Zeilennummer, die den Worten GO TO folgt, zu springen bzw. dorthin 
zu verzweigen und dann in der durch die Zeilennummern vorgegebenen 
Reihenfolge die weiteren Instruktionen abzuarbeiten. 


Im obigen Programm fordert das GO TO-Statement den Computer auf, 
zur Zeile.... zu springen und erneut mit dem Programm zu beginnen. 


34. Jetzt wollen wir einmal sehen, was geschieht, wenn wir das Pro- 
gramm laufen lassen. (Wir nehmen dazu an, daß Sie NEW geschrieben 
und dann das Programm eingetippt haben.) 


RUN 

? 16 
50.24 

? 24 
75.36 

? 26 
81.64 


?’m 





Nach jedem Fragezeichen haben wir einen Wert für D eingetippt. Der 
Computer berechnete anschließend 3.14*D, druckte das Ergebnis und 
gab eine weiteres Fragezeichen aus. 
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Damit haben wir jetzt alle gewünschten Berechnungen ausgeführt, aber 
der Computer weiß nicht, daß wir bereits fertig sind. Er steht in der 
Programmzeile 10 und wartet auf INPUT-Daten. Wie können wir 
diesen Zustand beenden? 


Ganz einfach! Drücken Sie auf die Taste BREAK 


? wir betätigen die Taste BREAK 

STOPPED AT LINE 10 Der Computer gibt die Zeile an, in der 

) BREAK erfolgte und schaltet den 
Cursor ein. 


Nehmen wir an, der Computer führt ein INPUT-Statement aus und hat 
ein Fragezeichen angezeigt. Was macht er, wenn wir die Taste BREAK 
ÄrUCKEN? .. ame nina ann a Se Er re 


Der Computer tritt aus dem INPUT-Statement aus, schreibt STOPPED 
AT n (wobei n die Zeilennummer angibt, an der BREAK erfolgte) und 
schaltet den Cursor ein. 


35. Erinnern Sie sich: BASIC Statements werden in der Reihenfolge der 
Zeilennummern ausgeführt, bis ein GO TO-Statement die Reihenfolge 
ändert. In dem Programm aus Abschnitt 33 werden die Statements in 
der nachfolgend durch die Pfeile gekennzeichneten Reihenfolge ausge- 


führt. 
RUN 
10 INPUT D 
20 PRINT 3.14*D 
30'GO TO 10 


Dieser Vorgang läuft solange im Kreise ab, bis Sie die BREAK-Taste 
betätigen. 


Das obige Programm ist ein Beispiel für eine Schleife. Das GO TO- 
Statement veranlaßt den Computer, zum Anfang zurückzuspringen. In 


unserem speziellen Beispiel geht er zu einem INPUT-Statement und 
hält dort an. Wir können aber auch Programme mit "'Non-Stop-Schlei- 
fen‘’ schreiben, wie das folgende Beispiel zeigt. Geben Sie erst NEW ein 
bevor Sie das folgende Programm eintippen. i 


RUN 


13 PRINT "UM MICH ANZUHALTEN, DRUECKE DIE TASTE 
"BREAK’ ” 


27 GO TO 13 


Lassen Sie das Programm noch nicht laufen! Zeichnen Sie statt dessen 
Pfeile ein, wie wir es im vorigen Beispiel getan haben, um zu verdeut- 
lichen, wie der Computer das Programm ausführt. 


13 PRINT “UM MICH ANZUHALTEN, DRUECKE DIE 
TASTE ‘'BREAK’ ” 






27 GO TO 13 


Wir haben in diesem Beispiel bewußt die Zeilennummern 13 und 27 
verwendet, um Sie daran zu erinnern, daß Sie nicht in Schritten von 
10 durchnumerieren müssen, obwohl wir das meist so machen. 


36. Jetzt wollen wir das Programm von Abschnitt 35 eingeben und 
laufen lassen. Vergessen Sie nicht die Taste BREAK zu drücken, um 
den Computer anzuhalten. 


13 PRINT “UM MICH ANZUHALTEN, DRUECKE DIE TASTE 
"BREAK’” 
27 GO TO 13 


RUN 

UM MICH ANZUHALTEN, DRUECKE DIE TASTE ‘BREAK’ 
UM MICH ANZUHALTEN, DRUECKE DIE TASTE ‘BREAK’ 
UM MICH ANZUHALTEN, DRUECKE DIE TASTE 'BREAK’ 
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STOPPED AT LINE 13 (ODER 27) 
Jetzt haben wir die Taste BREAK betätigt. 


Der Computer führte die Zeile 13 immer wieder aus, da ihn das GO TO- 
Statement in Zeile 27 ständig dazu aufforderte, zur Zeile 13 zurück- 
zugehen. Diese Schleife ist damit sozusagen eine “ewige‘’ Schleife, 
da sie immer wieder durchlaufen wird, bis sie jemand unterbricht. 
Manchmal wird eine derartige Schleife auch als ”“unendliche‘ Schleife 
bezeichnet, da sie nicht automatisch anhält. 


Wie können wir den Computer unterbrechen oder anhalten, wenn er 
ein Programm ausführt? .......s2sreerenenenn nenn nenn nn nen 


Wir betätigen die Taste BREAK. 


37. Nachdem wir jetzt wissen, wie wir einen “wildgewordenen” 
Computer durch Betätigen der Taste BREAK anhalten können, wollen 
wir ein lustiges Computer-Programm schreiben. Dieses Programm soll 
den Bildschirm schnell mit "Gelächter anfüllen. Denken Sie daran, vor 
der Eingabe des neuen Programms das alte mit NEW zu löschen. Dann 
geben Sie das folgende Programm ein. Es enthält einige bereits bekannte 
Statements, wie PRINT und GO TO, sowie ein neues mit REMARK 
bezeichnetes Statement. Wir benutzen das Statement, um dem 
Menschen, der das Programm lesen will, etwas über das Programm mit- 
zuteilen. Der Computer selbst ignoriert die REMARK-Statements 
einfach. 


100 REMARK FUELLE DEN BILDSCHIRM MIT ‘GELAECHTER’ 
110 PRINT “HA HA”; 
120 GO TO 110 


Haben Sie auch nicht das Semikolon am Ende von Zeile 110 vergessen? 
Nein?Gut, dann lassen Sie das Programm jetzt durch Eingabe von RUN 
ablaufen. Hat sich der Bildschirm wirklich mit “Gelächter‘’ gefüllt?.... 


Wir denken, Sie haben mit Ja geantwortet. Als wir das Programm aus- 
probiert haben, füllte sich der gesamte Bildschirm sehr schnell mit 


“HA HA”, 


38. Versuchen Sie das obige Programm noch einmal; modifizieren Sie 
aber zuvor die Zeile 110 in folgender Weise: 


110 PRINT “HA HA" 


Diesmal entfällt das Semikolon. Lassen Sie das Programm dann erneut 
ablaufen. Hat sich diesmal nur der linke Rand des Bildschirms mit 
HAHA GSFOl? 4 sin ae 0 an ns nun m a ae Fr aim 


Wir sind sicher, Sie haben wiederum mit Ja geantwortet. Das Semikolon 
veranlaßt den Computer, quer über den gesamten Bildschirm eine ganze 
Zeile von links nach rechts auszufüllen. Sobald der Computer am 
rechten Rand angelangt ist, fährt er einfach in der nächsten Zeile fort. 
Ohne das Semikolon beginnt der Computer jedoch nach jedem PRINT 
Statement mit einer neuen Zeile. 


39. Das REMARK-Statement hat auch eine Kurzform, die Sie ebenfalls 
verwenden können. Die Kurzform besteht einfach aus den ersten drei 
Buchstaben von REMARK, lautet also REM. Bei der Ausführung eines 
Programms beachtet der Computer nur die drei ersten Buchstaben! 
Sofern es sich dabei um REM handelt, springt er weiter zum folgenden 
Statement mit der nächsthöheren Zeilenzahl, ohne den Rest des mit 
REM begonnenen Statements weiter zu beachten. Daher würde es auch 
die gleiche Wirkung haben, wenn Sie REMEMBER anstatt REMark 
schreiben würden. Schreiben Sie Zeile 100 in Abschnitt 37 um und ver- 
wenden Sie dabei die Kurzform des REMark-Statements. 


dee cennueN ya ee ee ee ee hen ee 


100 REM FUELLE DEN SCHIRM MIT ‘GELAECHTER’ 


40.Wenn der Computer ein PRINT-Statement ausführt, das nur die 
Zeilennummer, gefolgt von dem Wort PRINT enthält, hat dieses State- 
ment die gleiche Wirkung, als wenn Sie die Taste RETURN drücken 
würden. Auf dem Bildschirm wird dadurch eine Leerzeile eingefügt. 
Ein leeres’ PRINT-Statement ist daher sehr zweckmäßig, um ein 
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Programm leichter lesbar zu machen. 


Hier sehen Sie nochmals einen Lauf unseres Fahrradprogramms aus 
den Abschnitten 33 und 34. 


RUN 


?16 
50.24 
224 
75.36 
?’m 


Das sieht alles ein bißchen zusammengequetscht aus, finden Sie nicht 
auch? 


Versuchen wir noch einmal, die Ausgabe etwas besser lesbar zu machen. 
Dazu fügen wir in das Programm das folgende “leere‘' PRINT-Statement 


ein. 
25 PRINT 


Wir schreiben: 10 INPUT D 
20 PRINT 3.14*D 
25 PRINT 
30 GO TO 10 


Lassen wir das Programm jetzt noch einmal ablaufen und sehen unsan, 
was geschieht. 


RUN 


?16 
50.24 


?24 
75.36 


?’m= 


Sind Ihnen die Zwischenräume durch die Leerzeilen aufgefallen? Sie 


wurden durch das von uns zusätzlich eingefügte PRINT-Statement ver- 
ursacht. 


Vergleichen Sie einmal beide Läufe des Programms. Welche Anweisung 
gibt die Zeile 25 PRINT dem Computer? ......zuseeeeneeeeneen ne 


Füge eine Leerzeile auf dem Bildschirm, nach dem Ausdrucken des 
Wertes von 3.14*D ein. Das geschieht, bevor der Computer GO TO 
10 druckt. 


41.Da wir jetzt schon einmal dabei sind, die Ausgabe lesbarer zu 
gestalten, wollen wir versuchen, unser mit INPUT-Statements arbeiten- 
des Programm noch lesbarer zu machen. Wenn wir ein INPUT-State- 
ment in einem Programm vorsehen, wäre es sehr vorteilhaft, den Be- 
nutzer irgendwie darauf hinzuweisen, wonach das INPUT-Statement 
fragt. Wir wollen dazu unserem Fahrrad-Programm das folgende State- 
ment hinzufügen: 


5 PRINT "RADDURCHMESSER" ; 


Sehen Sie das Semikolon am Ende des PRINT-Statements? Wenn am 
Ende eines PRINT-Statements ein Semikolon vorgesehen ist, bleibt 
der Computer in der gleichen Reihe des Bildschirms, anstatt am Anfang 
der nächsten Zeile fortzufahren. Hier sehen Sie unser bearbeitetes Pro- 
gramm: 

5 PRINT "RADDURCHMESSER“ ; 
10 INPUT D 
20 PRINT 3.14*D 
25 PRINT 
30 GO TO 10 


Lassen Sie jetzt das modifizierte Programm ablaufen. 


Wir schreiben: RUN 
Der Computer: RADDURCHMESSER? 


(das Wort stammt aus Zeile 5) 


(das Fragezeichen wird von dem INPUT- 
Statement in Zeile 10 bewirkt) 
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Jetzt sehen wir endlich genau, was der Computer von uns wissen 
möchte. Er will von uns einen Wert für den RADDURCHMESSER. Nun 
gut, geben wir also 16 ein und drücken RETURN. Schreiben Sie bitte 
auf, was als nächstes geschieht: 


RADDURCHMESSER? 16 


con nen ne we Eee 


PER ar aa ae ar ar Ba Tr Dar Bar Bor Bar Bo Bu a Br Br Ber Bar er Zur ar ur u er 


50.24 
RADDURCHMESSER? = 


42. Was der Computer möchte, ist jetzt eindeutig durch den in An- 
führungszeichen stehenden String im PRINT-Statement gesagt. In 
gleicher Weise wollen wir die vom Computer ausgeführte Berechung 
kennzeichenen (siehe Zeile 20). 


5 PRINT “RADDURCHMESSER"; 
10 INPUT D 
20 PRINT "RADUMFANG“ ; 3.14*D 
25 PRINT 
30 GO TO 10 


Das Statement 20 PRINT "RADUMFANG”; 3.14*D fordert den 
Computer auf: 

1) den String RADUMFANG auszudrucken und dann 

2) den Wert von 3.14*D zu berechnen und auszugeben. 


Versuchen wir das einmal. Füllen Sie dazu die leeren Zeilen im folgen- 
den Programmablauf aus: 


RUN 


RADDURCHMESSER? 16 
RADUMFANG 50.24 


RADDURCHMESSER? 24 
BARDUMEWAND! men. ms susanne on aumuee ma 
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RADDURCHMESSER? 26 


a re RRRNE RR RE ie er re ee‘ 


75.36 
RADUMFANG 81.54 


RADDURCHMESSER? = 


43.Schreiben Sie das Programm in Abschnitt 42 in geeigneter Weise so 
um, damit ein Lauf so aussieht, wie nachfolgend angegeben. 


RUN 

WENN SIE DEN DURCHMESSER EINES RADES IHRES FAHRRADS 
EINGEBEN, SAGE ICH IHNEN, WELCHE STRECKE SIE BEI EINER 
UMDREHUNG DES RADES ZURUECKLEGEN. 


RADDURCHMESSER? 16 
DIE BEI EINER UMDREHUNG ZURUECKGELEGTE STRECKE 
BETRAEGT 50.24 


RADDURCHMESSER? 24 
DIE BEI EINER UMDREHUNG ZURUECKGELEGTE STRECKE 
BETRAEGT 75.36 


RADDURCHMESSER? 


.... und so weiter. Um das Programm anzuhalten, drücken Sie auf 
die Taste BREAK. 


10 REMARK FAHRRAD PROGRAMM 

20 PRINT “WENN SIE DEN DURCHMESSER EINES RADES IHRES 
FAHRRADS” 

30 PRINT “EINGEBEN, SAGE ICH IHNEN, WELCHE STRECKE SIE 
BEI” 

40 PRINT “EINER UMDREHUNG DES RADES ZURUECKLEGEN” 

50 PRINT 

60 PRINT “RADDURCHMESSER”; 
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70 INPUT D 

80 PRINT “DIE BEI EINER UMDREHUNG ZURUECKGELEGTE 
STRECKE BETRAEGT'; 3.14*D 

90 GOTO 50 


44. Das INPUT-Statement gehört, genau wie das LET-Statement, zur 
Gruppe der als Zuweisungs-Statements bezeichneten BASIC-In- 
struktionen. Der Wert, den wir als Antwort auf ein Fragezeichen ein- 
tippen, wird der Variablen im INPUT-Statement zugeordnet. Sofern es 
sich bei der INPUT-Variablen um eine String-Variable handelt, können 
wir einen String als Wert eingeben. Er wird dann der String-Variablen 
zugeordnet. Dafür finden Sie nachstehend ein einfaches Beispiel. Bitte 
füllen Sie die Stellen aus, die wir leer gelassen haben. 


5 DIM N$(100) 

10 PRINT "WIE HEISSEN SIE?“; 

20 INPUT N$ 

30 PRINT NZ 

40 PRINT 

50 GO TO 10 

RUN 

WIE HEISSEN SIE? JERALD R. BROWN 
JERALD R. BROWN 

WIE HEISSEN SIE? LEROY FINKEL 


ui Baer 


nr 


LEROY FINKEL 
FIREDRAKE, DER DRACHEN 


In Kapitel 9 werden die Strings wesentlich ausführlicher behandelt. 


45. Hier lernen Sie ein Programm kennen, mit dem Sie den Computer 
als Addiermaschine benutzen können, und zwar durch wiederholte 
Ausführung einer “Addierroutine’’ mit Hilfe einer GO TO-Schleife. 
Unter einer “Routine’’ versteht man eine Folge mehrerer Statements, 
die eine bestimmte arithmetische Operation ausführen. 


nn 


100 REM DIE TEUERSTE ADDIERMASCHINE DER WELT 

110 PRINT “ICH BIN DIE TEUERSTE ADDIERMASCHINE DER 
WELT." 

120 PRINT “JEDES MAL, WENN ICH 'X=?' SCHREIBE, GEBEN“ 

130 PRINT “SIE EINE ZAHL EIN UND BETAETIGEN RETURN.” 

140 PRINT "ICH WERDE DANN DIE SUMME ALLER BISHER VON” 

150 PRINT “IHNEN EINGEGEBENEN ZAHLEN AUSRUCKEN.“ 

160 LET T=0 

170 PRINT 

180 PRINT ''x="; 

190 INPUT X 

200 LET T=T+X 

210 PRINT “GESAMTSUMME BIS JETZT“;T 

220 GO TO 170 


Die Zeilen 170 bis 220 bilden eine GO TO-Schleife. Sie werden für 
jede vom Benutzer eingegebene Zahl ausgeführt. 


Beachten Sie die LET-Statements in den Zeilen 160 und 200, in denen 
jeweils die Variable T vorkommt. Zeile 160 liegt außerhalb der GO TO- 
Schleife. Sie wird einmal ausgeführt, bevor die Schleife beginnt, wo- 
durch T auf O gesetzt wird. Dieser Vorgang wird Initialisierung genannt. 
Durch die Initialisierung erhält eine Variable einen Anfangswert. 


Zeile 200 liegt innerhalb der GO TO-Schleife. Daher wird sie bei jedem 
Schleifendurchlauf ausgeführt. In Zeile 200 wird ein neuer Wert für T 
errechnet, indem der alte, in der ”’Schachtel’’ T abgelegte Wert, zu der 
vom Computer-Benutzer als Wert für die INPUT-Variable X ein- 
gegebenen Zahl addiert wird. 


200 LET T=T+X 


neuer Wert neu eingegebene Zahl 


alter Wert 
a) Nehmen Sie an, der alte Wert von T ist O und die eingegebene Zahl 
X ist 12. 
Wie groß ist der neue Wert von T? ....usueeseeeerneennee nenne 


b) Nehmen Sie an, der alte Wert von T ist 12 und für X wird 43 einge- 
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geben. 
Wie groß ist der neue Wert von T? ... 2.222 oreeener ernennen 


46. Achten Sie darauf, wie die PRINT-Statements (Zeilen 110 — 150) 
dazu verwendet werden, dem Benutzer eine Erklärung zu geben und 
instruktionen für das Programm zu liefern. Liegen diese PRINT-State- 
ments innerhalb oder außerhalb der Schleife? 


außerhalb 


Die Zeilen 110 — 150 werden daher nur einmal ausgeführt und zwar 
dann, wenn Sie zum erstenmal RUN eingeben. Wenn Sie natürlich 
durch BREAK den Computer unterbrechen und das Programm noch- 
mals starten, werden die Zeilen 110 — 150 erneut ausgeführt. 


47. Jetzt wollen wir das Programm einmal ablaufen lassen und sehen, 
wie es arbeitet. 


RUN 

ICH BIN DIE TEUERSTE ADDIERMASCHINE DER WELT 
JEDES MAL, WENN ICH X=? SCHREIBE, GEBEN 

SIE EINE ZAHL EIN UND BETAETIGEN RETURN. 

ICH WERDE DANN DIE SUMME ALLER BISHER VON 
IHNEN EINGEGEBENEN ZAHLEN AUSDRUCKEN. 

X=? 12 

GESAMTSUMME BIS JETZT 12 


xX=? 43 

GESAMTSUMME BIS JETZT 55 
x=?’. Erinnern Sie sich noch daran, wie 
Sie den Computer daran hindern 
können, eine neue Schleife zu durchlaufen? Wenn nicht, sehen Sie sich 
Abschnitt 34 noch einmal an. 


Wir wollen uns jetzt das Statement in Zeile 200 des Listings in Ab- 


schnitt 45 etwas genauer ansehen. Beim ersten Lauf dieses Programms 
haben die Variablen, rechts vom Gleichheitszeichen in200 LET T=T+X, 
den Wert: 

LETT=0+12 


Dieser Wert wurde X 
durch INPUT X zuge- 
wiesen. 


Dieser Wert wurde T in 
Zeile 160 zugewiesen. 


Der neue Wert für T ist daher 12. Er wird vom Computer ausgedruckt. 
Beachten Sie, daß der Computer die gegenwärtigen Werte der Variablen, 
rechts vom Gleichheitszeichen, bei jeder erneuten Ausführung der Zeile 
200 ersetzt. 


Geben Sie die Werte für den zweiten Schleifendurchlauf des Programms 


an: 
ER X durch INPUT X 


beim zweiten Durchlauf 
zugewiesene Wert. 


alter Wert von T 


LETT=12+43 
55 


48.Da Sie ja inzwischen wissen, wie man einen “durchgehenden” 
Computer anhalten kann, versuchen Sie es einmal mit dem folgenden 
Programm. Es veranlaßt den Computer, nacheinander alle ganzen 
Zahlen auszudrucken, also 1, 2, 3, 4, 5, 6 usw., bis Sie auf die Taste 
BREAK drücken. 


10 LET N=1 
20 PRINT N 
30 LET N=N+1 
40 GO TO 20 


RUN 
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SOUPWDN— 


STOPPED AT LINE 20 
Wie arbeitet dieses Programm? Ganz einfach, folgen Sie den Pfeilen: 
10 LET N=1 
20 PRINTN 
30 LET N=N+1 
40 GO TO 20 
Dieses Programm ist ein weiteres Beispiel für eine Schleife. Zeile 10 
liegt außerhalb der Schleife, während die Zeilen 20, 30 und 40 die 
Schleife bilden. Sie werden immer wieder durchlaufen. Zeile 10 wird 
nur einmal ausgeführt, wobei N mit dem Wert 1 initialisiert wird. 
Zeile 30 liegt innerhalb der Schleife. Sie wird bei jedem Durchlauf 


ausgeführt. In Zeile 30 wird ein neuer Wert für N errechnet, indem 1 
zum alten Wert für N addiert wird. 


30LETN=-N+1I 
neuer NESIDESESUNLS.; | 
alter Wert 
a) Nehmen Sie an, der alte Wert für N ist 1. Wie lautet der neue Wert für 


N an a0 write en wen HE ET a a ana ge 


b) Angenommen der alte Wert für N ist 2. Wie lautet dann der neue 
Wertvöon N? .osueeeeeer nenne ne ne nn 


a) 2 b) 3 


49.Mit einer Zählschleife und einigen wenigen zusätzlichen State- 
ments können wir ein Programm schreiben, das zeigt, wie unser Spar- 
kapitel Jahr für Jahr anwächst. Hier ist es: 


100 REM SEHEN SIE IHR GELD WACHSEN 

110 PRINT ’’WENN SIE DIE HOEHE DES SPARKAPITALS“ 

120 PRINT “UND DEN ZINSFUSS PRO JAHR EINGEBEN,” 

130 PRINT “WERDE ICH IHNEN ZEIGEN, WIE IHR GELD“ 

140 PRINT "JAHR UM JAHR ANWAECHST. UM MICH” 

150 PRINT “ANZUHALTEN, DRUECKEN SIE DIE BREAK-TASTE.” 
155 PRINT 

160 PRINT "SPARKAPITAL” 

165 INPUT D 

170 PRINT "ZINSFUSS”; 

175 INPUT R 

180 LETN=1I  —————  - Anfangsjahr (N) = 1 

190 PRINT 

200 LET A=P*(1+R/100) A N 
210 PRINT “JAHR=";N 

220 PRINT ''BETRAG ="';A 
230 LET N=N+1  —— Berechnung des nächsten Jahres 
240 GOTO 190 


Berechne und drücke das Er- 
gebnis für das Jahr N. 


RUN 

WENN SIE DIE HOEHE DES SPARKAPITALS 

UND DEN ZINSFUSS PRO JAHR EINGEBEN, 
WERDE ICH IHNEN EZIGEN, WIE IHR GELD 

JAHR UM JAHR ANWAECHST. UM MICH 
ANZUHALTEN, DRUECKEN SIE DIE BREAK-TASTE 


SPARKAPITAL? 1000 
ZINSFUSS? 6 


JAHR = 1 
BETRAG = 1059.99999 


JAHR =2 
BETRAG = 1123.59997 
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(In Kapitel 4 werden wir Ihnen zeigen, wie man das Ergebnis auf den 
nächsten Pfennig aufrundet.) 


So läuft das Programm immer weiter, bis jemand auf die Taste BREAK 
drückt. Welche Statements sind Bestandteil der Schleife? 
Geben Sie die Zeilennummern an. ...:..r2ssseeserner nennen nn 


190, 200, 210, 220, 230, 240 


Wir schlagen Ihnen auch vor, mit einem Filzschreiber ein Kästchen um 
die Schleife zu malen. Beachten Sie, daß die Zeilen 100 bis 180 außer- 
halb der Schleife liegen. Sie werden während eines Laufs nur einmal 
ausgeführt, während die Zeilen 190 bis 240 solange wiederholt werden, 
bis jemand auf BREAK drückt. 


EIGENTEST 


Arbeiten Sie jetzt bitte den nachfolgenden Eigentest durch, damit Sie 
feststellen können, wieviel Sie in diesem Kapitel gelernt haben. 


1.Bevor wir ein Programm eingeben, schreiben wir zuerst NEW 
und betätigen dann die Taste RETURN. Warum? .......rrerc0 nr. 


2.Wie können wir den Computer dazu auffordern, ein vollständiges 
Listing eines in seinem Speicher befindlichen Programms auszu- 
GEBEN? 2 u anna a ana a nn ner ee 


3. Nehmen wir einmal an, wir haben gerade ein Programm in den 
Computer eingegeben. Wie teilen wir ihm mit, daß er das Pro- 
gramm ausführen soll? .....2e22seaseenenenen nern nenne nen 


4. Nehme Sie an, das folgende Programm ist im Computer gespeichert. 
10 PRINT “MEIN COMPUTER VERSTEHT MICH’ 
20 PRINT “MEIN COMPUTER VERWIRRT MICH" 
Beschreiben Sie, wie man das zweite Statement (Zeile 20) ersetzen 


EN aa ee au 
. 1 1.1. een 


.Worin besteht der Unterschied zwischen direkten Statement und 


Statements, die im Speicher des Computers für spätere Ausführung 
abgelegt werden? 


. .— nn. 0 een 


.Wir speichern das folgende Programm und lassen es ausführen. 


100 PRINT “ICH BEIN EIN FLEISSIGER COMPUTER“ 
200 GO TO 100 
Wie können wir den Computer anhalten? 


rn ee 


. Jedes der folgenden Statements enthält einen Fehler. Streichen Sie 


den Fehler an und schreiben Sie das Statement in korrekter BASIC- 
Syntax. 


Berg are a er u rin Dada Ra 


Da ae ur u ee er a Br er er ee Be er er er er er ee er ee er er a ee ee ee er 


Eee an ne ae ee a“ 


nun nein ee tee ee ee een ee ee ee 


. Beschreiben Sie, was bei jedem Statement falsch ist. 


a) 99999 LETA=7 


eek 


Bra a EEE TE Pia is Aa I DEE EEE ET TE 


I Due Bau ae Bar ee ee er Be er er ee ee ee er ee Er ee rer 


. 11.1.7. ee 


“nn he en enter 


VEN EEE TEE Er I EEE EEE rn 


.n nn nn 


ee ee ae ee Eee ee et nie wa aaien 
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9. Geben Sie an, was bei jedem Programm falsch ist. 
a) 10 INPUT A 
20 INPUT B 
30 PRINT AtB 
40 G0 TO 12 


b)IOLETA=7 


20LETB=5 
30 PRINTX+Y 


. Bra a EEE EEE en aD Ei 
: rennen a ren re 
a Ban nie Von hen ne 


wein ne ee ade rei ee 
Va a BR u ae erree 


ara anne au ne 


10. Vervollständigen Sie den Programmlauf auf der dafür vorgesehenen 
Zeile: 
10 PRINT "A="; 
15 INPUT A 
20 PRINT “B="; 
25 INPUT B 
30 PRINT “A+B=";AtB 
RUN 


aaa a KRUSE ee ee ee ER Ir 


11.Schreiben Sie ein Programm, mit dem sich Temperaturen, die in 
Grad Celsius angegeben sind, in Grad Fahrenheit umwandeln 
lassen. Benutzen Sie dazu die folgende Formel. 
F = (9/5)C +32 
Ein Lauf Ihres Programms sollte wie folgt aussehen: 


RUN 
SIE GEBEN DIE TEMPERATUR IN CELSIUSGRADEN EIN. 
ICH GEBE IHNEN DIE TEMPERATUR IN FAHRENHEIT AN. 


GRAD CELSIUS? O 
GRAD FAHRENHEIT = 32 


GRAD CELSIUS? 100 
GRAD FAHRENHEIT = 212 


GRAD CELSIUS? 


PIE PIE ur var ur vr Dur ur BL BL DE Be BB Br ze 
eine ie ET FT at az rin ara RER TE 


PAR HE IE 0 GE Ic RI Ye We Air De Doc je’ Soc var at Vor mE Bar Sur ya Du BE Tor ur Doc m Joc Kor ur Sr m Tor me Dr yo 17 cm ur m EL zur Sr Sr ar Ye Er eo 
DEE TREE RER TER TE DUTTET EEE Reeeeee w,g 
nee ee keinen ae. 
Pal ML Ur Dur Wu 0, II ur ME wor ar Wo vr LE Se We 27 me are SE HE Mn We Sc IE cc EL 26 Dur Mer ur So zır m 7 mu Dr mE ur or EL IE vo vE Eur Bu Ar 
ara Kennen nr VER EEE TE EEE Teen wie 
Cr Er EL VE me ar ac ve ve are ar VE re er Tor ee Er Sr Tor ur Sur Dur Yor Dar ar Ser Er ya er 272 Sa Tr Bor Der Tr u Tr Der Se Be Se 


12. Glückwunsch! Sie sind der große Gewinner in einer Fernsehshow. 
Ihr Preis wird folgendermaßen ermittelt: 
Zunächst wird eine Zufallszahl zwischen 1 und 1000 gezogen. 
Nennen wir sie N. Anschießend können Sie einen, aber nur einen 
der beiden folgenden Preise wählen, wozu Sie 60 Sekunden Zeit 
bekommen: 
PREIS NR. 1: Sie erhalten N DM 
PREIS NR. 2: Sie erhalten D DM, wobei D = 1.01N ist. 


Vielleicht erkennen Sie die Formel für D wieder. Sie gibt den Betrag 
an, den man erhält, wenn man 1 DM bei 1%Zeinsen pro Tag anlegt, 
bei täglicher Berechnung in einem Zeitraum von N Tagen. 

Es ergibt sich dabei natürlich folgende Frage: Welchen Preis soll 
man, bei gegebenem N wählen, Nr. 1 oder Nr. 2? 

Schreiben Sie ein Programm, das eine sichere Entscheidung er- 
möglicht. Ein RUN des Programms sollte etwa so aussehen: 


RUN 

N=? 100 

PREIS NR. 1 = 100 

PREIS NR: 2 = 2.704781277 
N=? 500 

PREIS NR. 1 = 500 

PREIS NR. 2 = 144.772491 
N=? 1000 

PREIS NR. 1 = 1000 

PREIS NR. 2 = 20959.0741 
N=? 

usw. 

Während Sie sich in den beiden ersten Fällen natürlich für Preis 


Nr. 1 entscheiden würden, wäre im Fall drei die Wahl von Preis 2 
natürlich wesentlich besser. 
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u. Bee ee rs ae re FREE LU TER ra m 


a ee ae a I DER ne ne ee ne 


ae win rare Be ED Br ee ie ee nee a ai ie ar 


ea ie a re EDER 5 KH er heeeeene aen 


wär ve Dee ee te ee eu ee ee 


SIE an Miete ie ara; 8 ee ee ie ee a re ee 


13. Schreiben Sie ein Programm, das Ihnen helfen soll, Ihren Konto- 


stand zu überwachen. Hier istein RUN des gewünschten Programms: 


RUN 

ICH WERDE IHNEN HELFEN, IHREN KONTOSTAND ZU 
UEBERWACHEN. GEBEN SIE AUSZAHLUNGEN UND SCHECKS 
ALS NEGATIVE, EINZAHLUNGEN ALS POSITIVE 

BETRAEGE AN. 


ALTER KONTOSTAND? 123.45 


EIN- ODER AUSZAHLUNG? —3.95 
NEUER KONTOSTAND: 119.5 


EIN-ODER AUSZAHLUNG? —25 
NEUER KONTOSTAND: 94.5 


EIN- ODER AUSZAHLUNG? 
USW, 


Erinnern Sie sich noch, wie man das Programm abrechen kann? 
Wenn nicht, sehen Sie noch einmal im Abschnitt 36 nach. 
Hier ist Platz für Ihr Programm: 


Si ie Erpreuemtenn 0  e  ee  uu e ee e ? 
a a RR EEE aan ed EI RTR ER ee N 
u I a ee ri RE RT er en‘ 
Wiener re nee BE a Lee ra ee nee 
a er ae ee ie EEE ee ee a ee ee 
en er he Re re ie ee ee ee ae me 
are re een er ee a ee re LT 
re de ale ee ii ie Vu ee ee 
ii En Weaver; re Tr EEE Dee ie ee re Er ee EEE 
re rt ea rn u EN a ee ee 
sl ee a iralar 0 ER ea a EEE EEE TREE RT 
rn a Binz a u a HET a ei ne BERNER 


ea ie ae ii EHE RTL ER NEE ARE TERN IE 


14.NehmenSie an, wir geben das nachfolgende Programm ein und 


starten es mit RUN. Geben Sie die ersten sieben Zahlen an, die 
vom Computer gedruckt werden. 

10LETN=1 

20 PRINT N 

30LETN=N+1I 

50 GO TO 20 

RUN 


rise ataudiiaNeNTn min ae er De ee ee Bee areas Er 
a tl a ee ae“ ie er ne neenee  e 
oo Ban aha ee he ea ara een 
u a ee rer wien ee ne re een ee 
ae Fe wie a ee er re u ee ee en ee er 
ea ee se ER a een here ee ee 


Wie können wir den Computer daran hindern, noch weitere Zahlen 
ZWÄrUCKEN? en Sala a ER ae I a ae een 


15. Inden USA werden bekanntlich alle Maße auf das metrische System 


umgestellt. Schreiben Sie daher ein Programm, mit dem sich die 
Maße “Fuß’' und ”Zoll‘ in Zentimenter umwandeln lassen, wie es 
der folgende Programmlauf zeigt: 
RUN 


FUSS=?5 
ZOLL =? 11 
ZENTIMETER = 180.34 


Wir geben, wie gefordert, die Länge in Fuß und Zoll an. Der 
Computer berechnet dann die entsprechende Länge in Zentimetern 
und gibt sie aus. ! 


Noch ein Beispiel: 
FUSS=?3 
ZOLL=?O 
ZENTIMETER = 91.44 


FUSS =? 


wi la re Ta Van ee en ee ee ie ee 
a ae ae ae erniee re ee e eae 
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2 2 Gras are ER Bu ray ae ai RE EN RR aTe ae BEN A mies mie DO 
aa wre ae Bi TE N TE RER re RT 
A isaiiai San ap wre er ee a Fee Re RE en Ba 
nahe Bee NT a Ra on ee ee RR 
au 58 Brenn we BE Fa ET Dr na ae a EBER RET | 
a yererg Rn BEwipieNe ar ragen DE RE TE BREITE TEre EENENEEET T 


m wien ad DR BieiheE Ai are ne ee ee 


ANTWORTEN ZUM EIGENTEST 


Die Zahlen in den Klammern beziehen sich jeweils auf die Abschnitte, 
in denen der Stoff besprochen wurde. 


1.Dadurch werden sämtliche alten Programme, die sich noch im 
Speicher des Computers befinden gelöscht. Wenn wir sie nicht 
löschen, kann es zu einem Durcheinander mit den Statements 
des neuen Programms kommen, was mit Sicherheit zu zahlreichen 
Fehlern führen würde. (Abschnitt 11, 12) 


2. Schreiben Sie LIST und betätigen Sie die Taste RETURN (13,14) 
3. Schreiben Sie RUN und betätigen Sie die Taste RETURN (14, 16) 


4. Schreiben Sie eine neue Zeile mit der Nummer 20 und drücken Sie 
RETURN. Das alte Statement in Zeile 20 wird dadurch automatisch 
gelöscht und durch das neue ersetzt. Wenn wir nur die Zeilen- 
nummer einer Statements schreiben und RETURN betätigen, 
löscht der Computer das Statement mit dieser Zeilennummer, 
sofern in seinem Sneicher überhaupt eins vorhanden war. (21) 


5. Direkte Statements haben keine Zeilennummern und werden sofort 
nach dem betätigen von RETURN ausgeführt. Ein Statement, das 
gespeichert werden soll, muß eine Zeilennummer haben; der 
Computer erinnert sich dann bei der späteren Ausführung daran. (9) 


6. Drücken Sie die Taste BREAK (34 — 36) 


7.a) 20 PRINT DER RADUMFANG BETRAEGT ;3.14*D 
Die Anführungsstriche fehlen. Richtig: 
20 PRINT “DER RADUMFANG BETRAEGT“';3.14*D (42, 43) 


b) 20 “DER RADUMFANG BETRAEGT" ;3.14*D 

Die PRINT-Anweisung fehlt! Richtig: 

20 PRINT “DER RADUMFANG BETRAEGT“ ;3.14*D (42) 
ec) 20 LETP*(1 +R/100)N=A 

Auf der linken Seite von = darf nur eine Variable stehen! Richtig: 

20 LET A =P*(1 + R/100)‘N (Abschnitte 1 — 4) 
d) 20 TYPE "x="";X 

Der Computer weiß nicht, was TYPE bedeuten soll! Richtig: 

20 PRINT "xX=";xX 


8.a) Zeilennumer zu groß (Abschnitt 9) 


b)3.14 ist keine gültige Zeilennummer, da sie nicht ganzzahlig ist 


und nicht im Bereich von 1 bis 65335 liegt. (Abschnitt 9) 
c) —100 ist keine gültige Zeilennummer (Abschnitt 9) 
d) dem Wort INPUT darf kein Komma folgen (Abschnitt 31) 


e) Am Ende des INPUT-Statements darf kein Komma stehen (nur 
INPUT-Statements mit zwei oder mehr Variablen verwenden 
Kommas zwischen den Variablen) (Abschnitt 31) 


9.a) Im Programm ist die Zeilennumer 12 nicht vorhanden. Daher 
kann der Computer das Statement 40 GO TO 12 nicht aus- 
führen. Stattdessen wird er ausgeben: ERROR—- 12 IN ZEI- 
LE 40 (Abschnitt 33, 35, 36) 

b) Das PRINT-Statement verwendet nicht die gleichen Variablen, 
denen in den ersten beiden Statements Werte zugeordnet wurden. 
(In ATARI BASIC würde der Computer in diesem Fall eine O 
für das PRINT-Statement ausgeben). Wir hätten das Programm 
auf eine der folgenden beiden Weisen schreiben müssen: 


erste Möglichkeit zweite Möglichkeit 


10LETA=7 10LETX=7 
20 LETB=5 20LETY=5 
30 PRINTA+B 30 PRINTX+Y (1-6) 
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10. Hier ist der komplette Programmablauf: 
RUN 
A=?7 
B=?5 
A+B = 12 
Das Statement: 
veranlaßte: 


30 PRINT “A+B=' ; AtB 
A+B = 12 (Abschnitt 42) 
11. 

100 REM UMWANDLUNG VON CELSIUS IN FAHRENHEIT 

110 PRINT “SIE GEBEN DIE TEMPERATUR IN CELSIUSGRADEN 


EIN.“ 
120 PRINT “ICH GEBE IHNEN DIE TEMPERATUR IN FAHRENHEIT 
AN." 
130 PRINT 
140 PRINT “GRAD CELSIUS“; 
150 INPUT C 


160 PRINT “GRAD FAHRENHEIT = ; (9/5)*C + 32 
170 GOTO 130 (Abschnitte 42, 43) 


12. 100 REM FERNSEHPREIS-PROBLEM 
110 PRINT 
120 PRINT "'N="; 
125 INPUT N 
130 PRINT “PREIS NR. 1 =";N 
140 PRINT “PREIS NR.2=";1.01 N 


150 GOTO 110 (Abschnitte 42, 43) 


13. 

100 REM PROGRAMM ZUR KONTOFUEHRUNG 

110 PRINT “ICH WERDE IHNEN HELFEN, IHREN KONTOSTAND 

ZU" 

120 PRINT “UEBERWACHEN. GEBEN SIE AUSZAHLUNGEN UND 
SCHECKS" 

130 PRINT "ALS NEGATIVE, EINZAHLUNGEN ALS POSITIVE" 

140 PRINT "BETRAEGE AN. 

150 PRINT 

160 PRINT “ALTER KONTOSTAND"; 

165 INPUT B 


170 PRINT 

180 PRINT “EIN-ODER AUSZAHLUNG“ 
185 INPUT X 

190 LET B=B+X 

200 PRINT “NEUER KONTOSTAND:”;B 
210 GOTO 170 


190LETB=B+X 


Ein- oder Auszahlung 
alter Kontostand 
neuer Kontostand (Abschnitte 47 — 49) 


14. RUN 


SO PRP@ODN— 


usw. 


Dieses Programm bildet eine Zählschleife. Sobald Sie RUN ein- 
geben, beginnt der Computer zu zählen. Er wird solange weiter- 
zählen, bis entweder einmal die Netzspannung ausfällt, ein Defekt 
auftritt oder jemand die Taste BREAK betätigt.(Abschnitt 47 — 49) 


16. 

100 REM UMWANDLUNG VON FUSS UND ZOLL IN ZENTIMETER 
110 PRINT 

120 PRINT "FUSS ="; 

125 INPUT F 

130 PRINT "ZOLL ="; 

135 INPUT I 

140 LET T = 12*F+1 

150 LET C = 2.54*T 

160 PRINT "ZENTIMETER =";C 


170 GOTO 110 ‚(Abschnitt 42) 
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NOTIZEN 


Kapitel 4 


Entscheidungen mit IF-THEN-Statements 


Wahrscheinlich sind Sie inzwischen zu dem Schluß gekommen, daß ein 
Computer nur das ausführt, was Sie ihm ganz genau aufgetragen haben. 
Wie kann ein Computer daher jemals etwas “selbst’’ entscheiden? Nun, 
eigene Entscheidungen kann ein Computer sicherlich nicht treffen. Er 
ist aber in der Lage, gewisse Vergleiche vorzunehmen, deren Durch- 
führung Sie ihm aufgetragen haben, und anschließend, je nachdem ob 
der von Ihnen spezifizierte Vergleich "'wahr‘’ oder “falsch‘' ausgefallen 
ist, im Programm entweder andere Instruktionen auszuführen oder 
Instruktionen zu überspringen. Das Statement, mit dem Sie derartige 
Vergleiche vorschreiben ist das IF-THEN-Statement. Wie Sie sehen 
werden, handelt es sich bei IF-THEN tatsächlich sogar um eine ganze 
“Familie” von Statements. Wenn Sie dieses Kapitel beendet haben, 
können Sie: 


e das IF-THEN-Statement benutzen; 
@ die folgenden Vergleiche in einem IF-THEN-Statement benutzen: 
Symbol Bedeutung 


{ kleiner als 
) größer als 
u gleich 
” ungleich 
= größer oder gleich 
{ kleiner oder gleich 


® die RND-Funktion zur Erzeugung von Zufallszahlen benutzen; 


® die INT-Funktion verwenden, um den Dezimalbruch-Anteil einer 
Zahl zu unterdrücken; 


® Die INT- und RND-Funktionen zusammen benutzen, um Zufalls- 
zahlen zu erzeugen; 


© Das ON-GOTO-Statement verwenden, um selektiv zu verschiedenen 
Statements in einem Programm verzweigen zu können; 


@ einen Doppelpunkt (:) verwenden, um mehrere Statements in der 
gleichen Zeile zu trennen (als Hilfsmittel zur Organisation Ihrer 
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Programme und um Speicherplatz einzusparen); 


© Mehrfach-Statements in einer Zeile schreiben, um die Wirkung von 
IF-THEN-Statements noch zu steigern. 


1.In diesem Kapitel wollen wir eine wichtige Fähigkeit von BASIC 
vorstellen, nämlich Vergleiche ausführen und Entscheidungen fällen zu 
können. Wir werden mit dem IF-THEN-(Wenn-Dann) Statement be- 
ginnen, das dem Computer aufträgt, eine spezifizierte Operation auszu- 
führen, wenn (IF) eine bestimmte Bedingung “wahr” ist. Wenn die Be- 
dingung jedoch nicht erfüllt, also “falsch” ist, wird die Operation nicht 
ausgeführt. Ein Beispiel für ein IF-THEN-Statement ist nachfolgend zu 
sehen: 


150 IFX)O THEN PRINT “IHRE ZAHL IST POSITIV“ 


Das IF-THEN-Statement sagt dem Computer: Wenn der Wert von X 
größer als O ist, drucke die Meldung IHRE ZAHL IST POSITIV aus 
und fahre mit dem nächsten Statement in der Reihenfolge der Zeilen- 
nummern fort. Das Symbol ) bedeutet ‘größer als’. 


Wenn der Wert von X kleiner oder gleich O ist, druckt der Computer die 
Mitteilung nicht aus. Stattdessen fährt er einfach mit der Ausführung 
des Programms fort. 


Hier sehen Sie noch einmal, wie der Programmablauf durch Pfeile ver- 
deutlicht werden kann: 


Die Bedingung. 
150 IFX ) 0 THENaBD> PRINT“IHRE ZAHL IST POSITIV" 


Er i 
Folge diesem Pfad, Folge diesem Pfad, 
wenn die Bedingung wenn die Bedingung 
“Falsch” ist. “wahr“’ ist. 


Wie lautet die Bedingung im obigen IF-THEN-Statement? ..........- 


X ) oder X größer als O 


2. Unter Verwendung des als Beispiels verwendeten Statements in Ab- 
schnitt 1 beantworten Sie bitte folgende Fragen: 


a) Nehmen Sie an X = 3. Ist die Bedingung wahr oder falsch? ........ 

b) Nehmen Sie an X = — 7. Ist die Bedingung wahr oder falsch? ....... 

c) Nehmen Sie an X = 0. Ist die Bedingung wahr oder falsch? ........ 

a) Wahr. Der Computer druckt die Mitteilung IHRE ZAHL IST POSITIV 
aus. 

b) Falsch. Der Computer druckt die Mitteilung nicht aus. 

c) Falsch. Der Computer druckt die Mitteilung nicht aus. 


3. Das Symbol ) in einem IF-THEN-Vergleich bedeutet: “Ist größer als’. 
Das Symbol = bedeutet “ist gleich‘‘. Sie können sich daher sicher leicht 
denken, welche Bedeutung das Symbol ( in einem IF-THEN-Vergleich 


(kleiner als) 


4. Hier finden Sie ein einfaches Programm, das die Verwendung des IF- 
THEN-Statements verdeutlicht. In diesem Programm sind drei IF- 
THEN-Statements vorhanden, die dem Computer den Auftrag geben, 
"zu vergleichen und zu entscheiden”. Denken Sie dabei daran, daß die 
Mitteilung in einem IF-THEN- PRINT-Statement nur ausgedruckt 
wird, wenn der Vergleich wahr ist. 


100 REM***DIESES PROGRAMM ERMITTELT, OB X POSITIV, 
NEGATIV ODER NULL IST. 

110 PRINT “WENN ICH SIE DAZU AUFFORDERE, GENEN SIE 

120 PRINT “BITTE EINE ZAHL EIN, UND ICH WERDE IHNEN 
SAGEN,” : 

130 PRINT “OB IHRE ZAHL POSITIV, NEGATIV ODER NULL IST.” 

135 PRINT 

140 PRINT “WIE LAUTET IHRE ZAHL?”; 

145 INPUT X 

150 IFX)O THEN PRINT “IHRE ZAHL IST POSITIV" 

160 IFX <(O THEN PRINT “IHRE ZAHL IST NEGATIV” 


170 IFX=O THEN PRINT “IHRE ZAHL IST NULL” 
180 GOTO 135 
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RUN 

WENN ICH SIE DAZU AUFFORDERE, GEBEN SIE 

BITTE EINE ZAHL EIN, UND ICH WERDE IHNEN SAGEN, 
OB IHRE ZAHL POSITIV, NEGATIV ODER NULL IST. 


WIE LAUTET IHRE ZAHL? —7 
IHRE ZAHL IST NEGATIV 


WIE LAUTET IHRE ZAHL? 3 
IHRE ZAHL IST POSITIV 


WIE LAUTET IHRE ZAHL? O 
IHRE ZAHL IST NULL 


WIE LAUTET IHRE ZAHL? = 


Und so weiter. Sie wissen ja sicherlich noch, wie man ein Programm ab- 
bricht, das auf eine Eingabe wartet? 


a) Wie lautet die Bedingung in Zeile 150°... ..22u22ncc ernennen 
b) Wie lautet die Bedingung in Zeile 160%. ......c2cc cn eeeeeeeee nn 
c) Wie lautet die Bedingung in Zeile 170%... ...cususueeeeennennn nn 


a) X) O oder X ist größer als O 
b) X (0 oder X ist kleiner als O 
c) X =0 oder X ist gleich O 


5.Beim Abarbeiten des Programms in Abschnitt 4 führt der Computer 
die Zeilen 100 bis 130 nur einmal aus, da sie außerhalb der Schleife 
liegen. Die Zeilen 135 bis 180 dagegen liegen innerhalb der Schleife und 
werden für jeden, vom Benutzer auf ein INPUT-Fragezeichen einge- 
gebenen Wert für X ausgeführt. Nehmen wir einmal an, das Programm 
ist gestartet worden, der Benutzer tippt nach einem Fragezeichen die 
Zahl 13 ein und drückt dann die Taste RETURN. Dadurch wird der 
Wert 13 der Variablen X zugewiesen. Sehen Sie sich jetzt noch einmal 
das Programm an. Da X = 13, ist die Bedingung in Zeile 150 wahr, die 
Bedingungen in den Zeilen 160 und 170 sind dagegen falsch. Daher 
wird der Computer die Mitteilung in Zeile 150 ausdrucken, nicht aber 
die Mitteilungen in den Zeilen 160 und 170. 


a) Angenommen X ist —7. Die Bedingung in Zeile 160 ist (wahr oder 
FAISCHN = aus u ; ‚und die Bedingungen in Zeile 150 und 170 sind 


wahr oder Talsch) u. zanıı  wuwne 

b) Angenommen X ist 0. Welche Bedingung ist wahr? Geben Sie die 
Zeilennummeräfß: u. usa 5 wur ne 
Welche Bedingungen sind falsch? Geben Sie die Zeilennumern 
ANA 1 aaa wen Sorge 


a) Wahr; falsch. Der Computer wird die Mitteilung in Zeile 160 aus- 
drucken, nicht aber die Mitteilungen in den Zeilen 150 und 170. 

b) Zeile 170; Zeilen 150 und 160. Der Computer wird die Mitteilung 
in Zeile 170 ausdrucken, nicht aber die Mitteilungen in den Zeilen 
150 und 160. 


6. Das folgende Programm vergleicht zwei Zahlen A und B miteinander 
und druckt eine geeignete Mitteilung aus. Vervollständigen Sie die 
Zeilen 160 und 170 so, daß das Programm in der angegebenen Weise ab- 
läuft. 


100 REM***VERGLEICHE ZWEI ZAHLEN, A und B 

110 PRINT “GEBEN SIE WERTE FUER A UND BEIN” 

120 PRINT 

130 PRINT "A=""; 

135 INPUT A 

140 PRINT "B="; 

145 INPUT B 

150 IFA)B THEN PRINT “A IST GROESSER ALS B" 

1860 IFATB: „as wre en nn a a ER ER ae 
170: aussi ana ur on a rn ann in nee 
180 GOTO 120 


RUN 

GEBEN SIE WERTE FUER A UNDBEEIN. 
A=?1 

B=?2 

A IST KLEINER ALS B 
A=?7 

B=?2 

A IST GROESSER ALS B 
A=?55 

B=?55 

A IST GLEICH B 
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160 IFA(BTHEN PRINT “A IST KLEINER ALS B" 
170 IFA=BTHEN PRINT “A IST GLEICH B" 


7.Wir wollen uns jetzt ein anderes IF-THEN-Statement ansehen. 


190 IF X=-1 THEN GO TO 230 


Wenn der Wert von X gleich —1 ist, 
springe in Zeile 230. Wenn der Wert 
von X ungleich —1 ist, fährt der Com- 
puter mit seiner üblichen Zeilennummern- 
Reihenfolge fort. 


Das Statement 
sagt dem Computer 


Im allgemeinen hat das IF-THEN-Statement die folgende Form: 
IF Bedingung THEN Statement 


Das Statement kann nahezu jedes beliebige BASIC-Statement sein. Die 
Bedingung ist üblicherweise ein Vergleich zwischen einer Variablen und 
einer Zahl, oder zwischen zwei BASIC-Ausdrücken. Anschließend 
finden Sie eine Zusammenstellung der gebräuchlichen Vergleichs- 
symbole. 


BASIC-Symbol Vergleich Math. Symbol 
= gleich = 
{ kleiner als ( 
) größer als ) 
(= kleiner gleich & 
)= größer gleich A 
0) ungleich # 


Schreiben Sie jede der folgenden Bedingungen in einwandreiem BASIC: 
a) M istgrößer als 10:.......«2essseneneennnen ernennen ae 
b) Z ist kleiner gleich A zur zweiten Potenz: .....erseeeeeeernenne 
OXistungleich Y3 =:5 sus Hn sa euer ne nn nn 
dH)3malPistgleichZmalQ: .......«eeserenesse nennen en nenn 


a)M)10 
b)Z(=A*2oderZ(=A*A 
C)X()Y 

d)3*p=Z*Q 


8. Bis jetzt haben Sie zwei Mitglieder der Familie der IF-THEN-State- 
ments kennengelernt und zwar: 


IF-THEN PRINT (Mitteilung in Anführungszeichen) 
IF-THEN GOTO (Zeilennummer) 


Das zweite IF-THEN-Statement fordert den Computer auf, zu der 
angegebenen Zeilennummer zu “gehen” bzw. zu “verzweigen”, sofern 
der Vergleich wahr ist. Sie können die Instruktion GOTO nach THEN 
auch weglassen und einfach die Zeilennummer angeben. Zeigen Sie, wie 
sich das folgende Statement auch kürzer schreiben läßt: 


190 IF X = —-1 THEN GOTO 230 


a REN VEREINE TE EEE Er RETTET ER ee ie ae 


190 IF X = —-1 THEN 230 


9.Die grundlegende Form des IF-THEN-Statements lautete bekannt- 
lich: 
IF (Bedingung) THEN (nahezu jedes BASIC-Statement) 


Da praktisch jedes BASIC-Statement auf THEN folgen darf, könnten 
wir den Computer beispielsweise veranlassen, einer Variablen einen 
Wert zuzuordnen oder durch INPUT nach einer Eingabe in einem IF- 
THEN-Statement zu fragen, sofern die Bedingung oder der Vergleich 
wahr sind. 


IFY=3THENLETX=1 
IF X*X + Y*Y 25 THEN PRINT “IHR VERSUCH LIEGT RICHTIG“ 


Jetzt sollen Sie ein wenig üben, wie man IF-THEN-Statements schreibt, 
in denen Wertzuweisungen erfolgen, sofern der Vergleich wahr ist. 
Schreiben Sie für die folgenden Beispiele jeweils ein IF-THEN-State- 
ment. 
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a) Wenn A ungleich B ist, weise der Variablen B den neuen Wert 10 
aaa on en een ne ee RE N Dee 5 ann en 
b) Wenn H größer als 100 ist, soll der Computer ausgeben— “Hoppla! 
das sind zuviele Stunden!” ......:z2ssseseerereen nenn nen nn 
a)IFA()BTHENB=10 Denken Sie daran, daß LET in einem Zu- 
weisungs-Statement weggelassen werden 
kann. 
b) 
IF H ) 100 THEN PRINT “HPPLA! DAS SIND ZUVIELE STUNDEN“ 


10. Schreiben Sie für jedes Beispiel ein IF-THEN-Statement. 


a) Wenn der Wert von A kleiner oder gleich 10 ist, gehe zur Zeilen- 
Hummer 100. :: <= suson sa wann neun a aa ee 
b) Wenn der Wert von A kleiner als 2*B ist, erhöhe den alten Wert von 
TumT. .400: ana 2a una ne ne EEE Fi a we 
c) Wenn X größer als 2 mal Y ist, dann drucke die Mitteilung aus: "X 


EIN... 0. wa ala a a aan Beine u ER 


a) IFA (= 10 THEN 100 (GOTO kann weggelassen werden) 
b)IFA(2*B THEN T =T+1 oder 
IFA(2*BTHEN LET T = T+1 (LET kann weggelassen werden) 
c) IF X)2*Y THEN PRINT “X IST MEHR ALS DOPPELT SO GROSS 
WIE Y“ 
d)IFZ() -1 THEN INPUT X 


11. Eine gebräuchliche Anwendung des IF-THEN-Statements besteht 
darin, ein als ‘Flag’ bezeichnetes Signal zu erkennen, das einen Vor- 
gang beendet und einem anderen einleitet. Hier finden Sie ein weiteres 
Beispiel für die teuerste Addiermaschine der Welt”, die uns zum ersten- 
mal in Abschnitt 45 von Kapitel 3 begegnete. Vielleicht ist es besser, 
wenn Sie sich diesen Abschnitt noch einmal ansehen, bevor Sie sich 
mit dem neuen Programm beschäftigen. 


REM***DIE TEUERSTE ADDIERMASCHINE DER WELT 
PRINT “ICH BIN DIE TEUERSTE ADDIERMASCHINE DER 
WELT.” 

PRINT “JEDESMAL, WENN ICH 'X=?‘ DRUCKE, GEBEN SIE” 
nn: “EINE ZAHL EIN. WENN SIE FERTIG SIND, SCHREI- 
BEN“ 


140 PRINT “SIE -1, UND ICH WERDE DIE SUMME IHRER ZUVOR“ 

150 PRINT “EINGEGEBENEN ZAHLEN AUSDRUCKEN.” 

160 T=0 

170 PRINT Die Zeilen 170 — 220 bilden eine GOTO- 

180 PRINT "xX="; Schleife. Sobald jedoch jemand —1 als 

190 INPUT X Wert für X eintippt, veranlaßt Zeile 200 

200 IF X =-1 THEN 230 den Computer, aus der Schleife herauszu- 

210 T=T+X springen und zu Zeile 230 zu gehen. 

220 GOTO 170 

230 PRINT Die Zeilen 230 — 260 fordern den Com- 

240 PRINT “SUMME ="; T puter auf, eine Leerzeile zu drucken, die 

250 PRINT Summe der Zahlen auszugeben und dann 

260 GOTO 110 zur Zeile 110 zurückzuspringen und mit 
einem neuen Schleifendurchlauf zu be- 
ginnen. 

RUN 


ICH BIN DIE TEUERSTE ADDIERMASCHINE DER WELT. 
JEDESMAL, WENN ICH ’X=?' DRUCKE, GEBEN SIE 

EINE ZAHL EIN. WENN SIE FERTIG SIND, SCHREIBEN 
SIE —1, UND ICH WERDE DIE SUMME IHRER ZUVOR 
EINGEGEBENEN ZAHLEN AUSDRUCKEN. 


X =? 6.95 

X=?.47 

X =? 8.49 

X =? 3.06 

x=-—1 Hier ist das von uns vorgesehene Flag, das dem 


Computer signalisiert: Das waren alle Zahlen. 


SUMME=18.97 
ICH BIN DIE TEUERSTE ADDIERMASCHINE DER WELT. 


USW. 
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In unserem Programm wird —1 als Flag verwendet; das Statement 200 
prüft jeden für X eingegebenen Wert. Sofern es sich dabei um —1 
handelt, springt der Computer aus der Schleife heraus und zwar zur 
Zeile 230. Die Zeilen 230 bis 260 drucken die Summe T und veran- 
lassen dann den Cömputer zur Zeile 110 zurückzuspringen und neu zu 
beginnen. 


Jede beliebige Zahl, die nicht als INPUT-Wert vorkommt, könnte als 
Flag verwendet werden. 


Modifizieren Sie das Programm bitte so, daß statt —1 die Zahl 999999 
als Flag benutzt wird. Sie müssen dazu die Zeilen 140 und 200 ändern. 


140 PRINT “SIE 999999, UND ICH WERDE DIE SUMME IHRER 
ZUVOR" 
200 IF X=999999 THEN 230 


12. In dem Programm in Abschnitt 11 haben wir zuerst —1 in Flag 
verwendet. Das ist nur möglich, wenn keine der vorkommenden Zahlen 
negativ ist. In dem Fall empfiehlt sich die Verwendung des Flags 999999. 


Mit einigen wenigen Änderungen können wir das Programm in Ab- 
schnitt 11 modifizieren, um den Mittelwert einer Folge von Zahlen zu 
berechnen. Die dazu verwendete Formel lautet: 


Summe aller Zahlen T 
Mitewets rer | 
Anzahl der Zahlen N 


In dem nachfolgenden Mittelwertprogramm verwenden wir .die Variable 
T für die Summe der Zahlen und N für die eingegebene Anzahl. Vervoll- 
ständigen Sie jetzt bitte das Programm: 


100 REM***PROGRAMM ZUR MITTELWERTBERECHNUNG 
110 PRINT “ICH BERECHNE DEN MITTELWERT MEHRERER 
ZAHLEN.” 


120 PRINT ‘WENN ICH 'X=?' AUSGEBE, TIPPEN SIE EINE ZAHL 
EIN.’ 

130 PRINT “WENN SIE MIT DER EINGABE FERTIG SIND, 
SCHREIBEN SIE 999999." 


140 LET T=0 

150: LET N=i....- » 4 —— Wir verwenden N zum Zählen der einge- 
160 PRINT gebenen Zahlen. 

170 PRINT "x="'; 

175 INPUT X 


180 IF X=999999 THEN 220 
190 LET T=T+X 


200 LET. N=:+ :. 4. #—— Erhöhe N um 1. 

210 GOTO 160 

220 PRINT 

230 PRINT "N=";....—-Drucke zuerst die Anzahl der einge- 
240 PRINT SUMME = ";T gebenen Zahlen aus. 

250 PRINT MITTELWERT ="; ........ ——— Berechne den 
260 PRINT Mittelwert und 
270 GOTO 110 drucke ihn aus. 


Den kompletten Lauf des Programms sehen Sie nachstehend. 


RUN 

ICH BERECHNE DEN MITTELWERT MEHRERER ZAHLEN. 

WENN ICH ‘X=?' AUSGEBE, TIPPEN SIE EINE ZAHLEEIN. 

WENN SIE MIT DER AUFGABE FERTIG SIND, SCHREIBEN SIE 
999999. 

X =?10 


xX=?-9 

xX=? —15 

x =? —23 

x =? -25 

X =? -30 

X =? 999999 = ————Hier ist das Flag! 

N=7 N ist die Anzahl der eingegebenen Zahlen. 


SUMME = —89 
MITTELWERT = —12.71428571 
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150 LET N=0 

200 LET N=N+1 

230 PRINT “N=";N 

250 PRINT “MITTELWERT ="; T/N 


13. Die Wahl des Flags hängt sehr von der jeweiligen Problemstellung 
und den vorkommenden Daten ab. So kann bei verschiedenen Anwen- 
dungen auch 999999 als Flag völlig ungeeignet sein. Eine Zahl, die mit 
Sicherheit praktisch nie vorkommen dürfte, ist die Gleitkommazahl 
1E97. Für die meisten Daten wird sie sich gut als Flag eignen. Modifi- 
zieren Sie daher bitte die Zeilen 130 und 180 im Programm aus Ab- 
schnitt 12 so, daß 1E97 als Flag verwendet wird. 


A anna Hay a a a ann nr RER Baal Bi warn 


130 PRINT “WENN SIE MIT DER EINGABE FERTIG SIND, 
SCHREIBEN SIE 1E97.” 
180 IF X=1E97 THEN 220 


14. Sie haben uns bis jetzt geholfen, eine Reihe von Programmen unter 
Verwendung von IF-THEN-Vergleichen zu schreiben. a dürfte es 
jedoch an der Zeit sein, daß Sie Ihren ersten “Alleinflug ö machen und 
selbst ein Programm schreiben. Denken Sie gründlich über die Ver- 
wendung von IF-THEN-Vergleichen nach und erinnern Sie sich daran, 
was der Computer tut, wenn die Bedingungen “wahr” oder falsch 
sind. Anschließend finden Sie den ausgedruckten Lauf des Programms, 
das Sie schreiben sollen. 


RUN 

GEBEN SIE EINE ZAHL EIN, UND ICH WERDE IHNEN 
SAGEN, OB SIE KLEINER ODER GLEICH 100 ODER 
GROESSER ALS 100 IST. 


IHRE ZAHL? 99 
IHRE ZAHL IST 100 ODER KLEINER 


IHRE ZAHL? 101 
IHRE ZAHL IST GROESSER ALS 100 
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IHRE ZAHL IST GROESSER ALS 100 


IHRE ZAHL? 100 
IHRE ZAHL IST 100 ODER KLEINER 


IHRE ZAHL? 


Schreiben Sie jetzt das Programm. 


Me.elnisie wis ee ehe ee ie ee 
ae he er ee ee he ee ee eat ee“ re 
Par Tr Tr Vor Dur Bar Dar Bar a or Tor Dar Bar Dar oE Der Dar Do or Bor Doc Dur Do Dur DEE Vor Br Doc BE HE BEL BL BEL Dur Bar Bor BEE Br Ber Ser Bar Dur Bu Br Ze SEE ur Ber BEL ur Zr Bar Ju Jar Zu 
Maine ea see ed sa ie ve re een ie ee 
A ae een ee ee ae 
Ne ae ae ee ee le ee ee ee re ei 
lila ee ae haare seen nee ee 
Bao wie Meere ee een een ne ee“ 
res ae ae re ee aaa een ee en ee‘ 
seine. 0 e.ee ne 0 ee ee ee ee ee nee 
ee re ee eu ee u ee ae re ee ei een © 


100 REM***ZAHLENGROESSEN-PROGRAMM 

110 PRINT “GEBENSIE EINE ZAHL EIN, UND ICH WERDE IHNEN“ 

115 PRINT “SAGEN, OB SIE KLEINER ODER GLEICH 100 ODER“ 

120 PRINT “GROESSER ALS 100 IST.” 

130 PRINT 

140 PRINT “IHRE ZAHL”; 

150 INPUT N 

160 IF N (= 100 THEN PRINT “IHRE ZAHL IST 100 ODER 
KLEINER” 


170 IF N )100 THEN PRINT "IHRE ZAHL IST GROESSER ALS 100” 
180 GOTO 130 


15. Bald werden wir uns auch mit Computer-Spielen befassen, die viel 
Freude machen. Zuvor müssen Sie jedoch noch etwas über Zufalls- 


zahlen erfahren und die mit RND bezeichnete unvorhersagbare BASIC- 
Funktion kennenlernen. 


Zufallszahlen sind Zahlen, die wahllos aus einer gegebenen Menge von 
Zahlen herausgegriffen werden. Viele Spiele verwenden beispielsweise 
einen Würfel oder einen Zahlenkreisel, um Zufallszahlen zu erzeugen. 
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Würfeln Sie eine 6, dürfen Sie sechs Stellen vorrücken. 


Funktionen von BASIC sind automatisch ablaufende Vorgänge, die Sie 
zur Durchführung spezieller Operationen benutzen können. Diese 
Funktionen sind wie “eingebaute‘ Programme; die meisten von Ihnen 
könnten durch ein Programm oder ein Programm-Segment ersetzt 
werden. Da Computer jedoch häufig genug aufgefordert werden, die 
von diesen Funktionen bewirkten Operationen auszuführen, lohnt es 
sich, sie bereits in die Computer-Sprache einzubauen. 


BASIC enthält eine spezielle Funktion mit der Bezeichnung RND, 
die Zahlen erzeugt, und zwar in scheinbar völlig willkürlicher Reihen- 
folge, so als wenn man sie aus einem Hut ziehen würde. Das nach- 
folgende Programm verdeutlicht die Verwendung der RND-Funktion. 


Wir zeigen Ihnen hier das Programm und zwei verschiedene Programm- 
läufe. Den ersten Lauf unterbrachen wir durch Eingabe von BREAK 
und starteten dann einen neuen. 


10PRINTRND (1) 
20 GOTO 10 


RUN RUN 
9.2772964298 8.4468536376 
9.8455932617 9.2126617431 
9.6158294677 9.7585681896 
9.8782165524 8.5531005859 
9.2481689453 9.1878662199 
9.1948242187 9.8785217285 
8.9686126798 6.83481722E-93 
9.5149536132 9.284711914 
2.8614654541 STOPPED AT LINE 18 
0.3824929654 


STOPPED AT LINE 18 


Wir haben BREAK gedrückt Wir haben BREAK gedrückt 


Sind die Listen der Zufallszahlen in den beiden Programmläufen gleich? 


Nein! Auch wenn Sie unser Programm in Ihren Computer eingeben und 
mit RUN starten, können Sie keineswegs eine der beiden Listen er- 
warten. Es sind eben wirklich rein zufällige Zahlen. 


16. Das Statement 10 PRINT RND ( 1 ) veranlaßt den Computer, eine 
unterschiedliche Folge von Zahlen zu erzeugen, und zwar jedesmal, 
wenn das Programm abläuft. Die RND-Funktion liefert Zahlen, die rein 
willkürlich ausgewählt erscheinen. Bei unserem ATARI-Computer wird 
die RND-Funktion RND ( 1 ) geschrieben. 


Wir setzen hier die Zahl 1 in Klammern hinter RND, jedoch kann auch 
jede andere positive Zahl verwendet werden, sogar Dezimalbrüche. Bei 
unserem Computer veranlaßt eine positive Zahl in Klammern hinter 
RND den Computer, bei jedem Programmlauf eine unterschiedliche 
Liste von Zufallszahlen zu erzeugen. 


Sehen Sie sich die Zufallszahlen in Abschnitt 15 einmal genauer an 
und beantworten Sie bitte folgende Fragen: 


a) Ie: miend 8In8 Zah NEBEN? ; ; sasan «5 wann sa See u Ka 
b) Ist irgend eine Zahl gleich Null? ........22ceeeeeeeeeeneeee nen 
EPlst irgend eine Zahl größer als 17.0... cu. wann or nenn 


arist igend eine Zahl alelch. 17 .: seuar ui verauans Sonn Henna 

e) Wie der Augenschein zeigt, sind die Zufallszahlen ........ als Null 
UNI: sten are ee as als 1. 

a) nein b) nein 

c) nein d) nein 


e) größer; kleiner 


17. Es ist wahr, daß die von der RND-Funktion erzeugten Zufallszahlen 
größer als O und kleiner als 1 sind. Um es anders zu sagen: Von der 
RND-Funktion erzugte Zufallszahlen liegen zwischen O und 1. Oder in 
mathematischer Schreibweise: 


O{RND(1)1 


Allerdings sind Zufallszahlen zwischen O und 1 nicht immer sehr 
zweckmäßig. Manchmal möchten wir auch die Ziffern von O0 bis 9, oder 
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ganzzahlige Zufallszahlen zwischen 1 und 100 haben. Nachstehend 
finden Sie ein Programm, in dem der Computer als Lernmaschine 
arbeitet, um Schülern die Addition einstelliger Zahlen beizubringen: 


144275 —————————1 Der Computer druckte 1+4=? 

WEITER SO! RICHTIG Der Schüler tippte 5 als Antwort ein und 
drückte auf RETURN. 

9+6=?14 

HMMM .. . FALSCH #—— Hier machte der Schüler einen Fehler. 


9+6=? 15 + ————————— Der Computer wiederholt die Aufgabe. 
WEITER SO! RICHTIG Diesmal beantwortet der Schüler richtig. 


8+0=? Eine neue Aufgabe ...... und so weiter 


Unzweifelhaft sind Sie jetzt begierig darauf, das Programm zu sehen. 
Doch Geduld. Wir wollen es Stück für Stück zusammenbauen. Zunächst 
einmal müssen wir wissen, wie wir Zufalls-Zahlen erzeugen können. 


Die von der RND-Funktion erzeugten Zufallszahlen sind gleichmäßig 
zwischen 0 und 1 verteilt. Das heißt, die Wahrscheinlichkeit für das 
Auftreten einer bestimmten Zahl ist für alle Zahlen gleich groß. 


RND (1) liegt zwischen O und 1, ist aber niemals O oder 1. Daher 
liegt 10*RND(1) zwischen Ound .... rer er ee e nennen nn 


10; aber 10*RND(1) ist niemals gleich 0 oder 10. 


18. Nachstehend sehen Sie ein Programm zum Ausdrucken von Zufalls- 
zahlen zwischen O0 und 10. Wir zeigen Ihnen zwei Läufe, um Sie daran 
zu erinnern, daß Sie jedesmal eine andere Liste von Zahlen erhalten. 


10 PRINT 10*RND(1) 


20 GOTO 10 
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RUN RUN 
7.208895664 1.17219653 
8.137292783 5.94892856 
2.74749755 1.48361286 
6.27574462 3.89282225 
3.92829987 9.85137939 
1.66299366 4.83612961 
4.94537259 2.23781128 
2.382461547 

6.671295166 

4.277496337 STOPPED AT LINE 18 


STOPPED AT LINE 12 


Jede Zufallszahl in beiden Läufen ist größer als O und kleiner als 10. 
Man kann sie sich aus einem ganzzahligen Anteil links vom Dezimal- 
punkt und einem gebrochenen Anteil rechts vom Punkt zusammen- 
gesetzt vorstellen. 


Der ganzzahlige Anteil von 7.00805664 ist 7, der gebrochene 
Anteil .008050664 


Der ganzzahlige Anteil von 0.382461547 ist Null (0), der gebrochene 
Anteil .38246547 


a) Wie groß ist der ganzzahlige Anteil von 1.66000366? ............- 
Der gebrochene Anteil? ......22erereererer nenne nennen 
b) Wie groß ist der ganzzahlige Anteil von 4.83612061? .......... +.» 
Der gebrochene Anteil? 


a) 1; .66000366 
b) 4; .83612061 


19. Schreiben Sie jetzt drei kurze Programme, um Zufallszahlen in den 
jeweiligen angegebenen Bereichen zu erzeugen. 


a) Zwischen O und 100 


En a ERDE En a EEE ET EEE I DET 


ie rt aan Fra Ta ee we ee 


termin care ru DER KETTE re Eu 


Deal Bao denen Sa an Er a REDET 


118 


a) 10 PRINT 100*RND(1) 


b) 10 PRINT 50*RND(1) 


20 GOTO 10 20 GOTO 10 
RUN RUN 
73.3388125 28.9513492 
12.7318866 35.5718117 
37.9114539 44.6059096 
87.8885927 11.4345926 
2.19936@0@1 6.48894357 
29.1256433 15.2396984 
69.5799792 


4.26922968 


c) 10 PRINT 6*RND(1) 
20 GOTO 10 


RUN 

.68818182 
„31444039 
.24957255 
.1153584267 
.,82287558154 
.99792334 
.72199528 
.93216994 


vpnupraa urn 


20. Für jede Zufallszahl zwischen O und 10 ist der ganzzahlige Anteil 
eine einzelne Ziffer. Wäre es da nicht viel einfacher, wir könnten den 
Computer gleich dazu veranlassen, den gebrochenen Anteil abzutrennen 
und nur gen ganzzahligen Anteil auszugeben? 


Nun, wie Sie vielleicht schon vermuten werden, ist das möglich. BASIC 
verfügt nämlich über eine weitere, sehr nützliche Funktion, die INT 
genannt wird. Hier finden Sie dafür einige Beispiele: 


INT(3) =3 
INT(3.14159) = 3 INT(7.99999) = 7 
INT(1.23456) = 1 INT(.999999) = O0 


(Die Wirkungsweise der INT-Funktion kann in Worten so ausgedrückt 
werden: ‘Der ganzzahlige Anteil von 3.14159 ist 3.) 


INT(7)=7 


Allgemein gesagt, ist INT(X) der ganzzahlige Anteil von X. Wenden Sie 
jetzt einmal die Funktion INT auf einige der Zufallszahlen aus Ab- 
schnitt 18 an. 


S.1INT17.00805664) = . .. sau au ua a wann nn wann ie me 
b)INT(0.38246157) = . ..:.... 2050000 00 en none sn nn 
c) INT(2.74749755) = 
d) INT(9.85137939) = 


21. Vorsicht! INT arbeitet in der in Abschnitt 20 gezeigten Weise nur 
bei positiven Zahlen oder Null. Allgemein gesagt berechnet INT(X) die 
größte ganze Zahl, die kleiner oder gleich X ist. Zum Beispiel: 


INT(3.14) =3 
INT(7)=7 
INT(.999) = 0 


aber INT(-3.14) =4 
und INT(-7) = —7 
aber INT(—.999) = —1 


Für positive Zahlen oder 0 berechnet INT(X) den ganzzahligen Anteil 
von X. Beim Programmablauf wird der X zugeordnete Wert für die in 
den auf INT folgenden Klammern befindliche Variable X eingesetzt. 
Der Computer führt die INT-Funktion dann mit diesem numerischen 
Wert aus. Natürlich kann auch jede andere Variable an Stelle des Buch- 
stabens X verwendet werden, sofern ihr zuvor im Programm ein Wert 
zugewiesen wurde. 


Stellen Sie sich jetzt einmal vor, Sie sind der Computer. Geben Sie an, 
was Sie ausdrucken würden, wenn Ihr menschlicher Benutzer Sie dazu 
auffordert, die folgenden Programme auszuführen. 


a) 10 X=15.77 
20 PRINT INT(X) 
RUN 


Pan ar Br ar a a a Tor ar Dar Bor Tor Dar Du Dar ur Dur Du Vor Vo BL Dur Dur Doc ur vor vor TEL u Bor Bar Dur Dar Br BE Teer Bar Be ur Ser Bar Ku BE SEE Ze Zur Su Ze BE Sur Zur Zr ze 


b) 10 A=99.999 
20 PRINT INT(A) 
RUN 

c) 10 F=98.6 
20 PRINT INT(F) 
RUN 


Biene na Bene ee ee ae ee ee ee era 
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22. Statt einer Zahl können wir auch eine Variable, eine Funktion oder 
jeden beliebigen BASIC-Ausdruck in die Klammern einsetzen, die auf 
das Wort INT folgen. 


INT (,) 

A___ jede beliebige BASIC-Zahl, Variable, Funktion oder 
ein gültiger BASIC-Ausdruck kann hier eingesetzt 
werden. 


Sie sollten mittlerweile zwischen Werten, Variablen, Ausdrücken, 
Funktionen und Strings unterscheiden können. Um zu zeigen, daß Sie 
die Bedeutungen kennen, geben Sie bei den folgenden Beispielen 
jeweils an, worum es sich handelt. 


N ee 

b)X*2 

c) RND(1) 

d) “A+B IST EIN AUSDRUCK“ 

e) 22 

f) ı+1 

g) INT(52.88) 

h) =" 

Da a ee 

j) Welches der obigen Beispiele könnte in den Klammern einer Funk- 
tion wie INT oder RND eingesetzt werden? ......-.ssccsereenn 


en:n ern ae Buena ee ee 


sa non a ne ir Un MET re 


SiVonna a nu. Le ale een 


a) Variable b) Ausdruck c) Funktion d) String 
e) Wert f) Ausdruck f) Funktion h) String 
i) Ausdruck j)a,b,c,e,f,g,i 


23. Erinnern Sie sich daran: Die allgemeine Form der INT-Funktion 
lautet folgendermaßen: 
INT(,) 


Wobei in den Klammern jede BASIC-Zahl, Variable, Funktion oder 
ein BASIC-Ausdruck stehen kann. 


Es ist daher zulässig, wenn wir INT(10*RND(1)) schreiben. Dies ist 
ein Ausdruck, der eine Funktion als Bestandteil des Ausdrucks enthält. 


RND(I1) ist eine Zufallszahl zwischen O und 1. 
10*RND(1) ist eine Zufallszahl zwischen O und 10. 
INT(10*RND(1)) ist eine Zufallsziffer. 


Das nachfolgende Programm veranlaßt den Computer, Zufallsziffern zu 
erzeugen und auszudrucken. Dabei handelt es sich um die Zahlen 0, 1, 
2,3,4,5,6,7,8 und 9, also O bis 9 einschließlich. Beachten Sie, daß 
inklusive bedeutet, daß sowohl die Ziffern O und 9, als auch die da- 
zwischenliegenden Ziffern eingeschlossen sind. 


10 PRINT INT(10*RND(1)) 
20 GOTO 10 


RUN RUN 

5 4 

3 6 

2 3 

0 9 

6 4 

3 0 

4 1 

1 2 

7 

STOPPED AT LINE 10 STOPPED AT LINE 10 

Dieses Programm druckt Zufallsziffern, bei denen es sich um ganze 
Zahlen zwischen ....... UN: ur ee einschließlich handelt. 
0; 9 


24. Schreiben Sie jetzt ein kurzes Programm, um ganzzahlige Zufalls- 
zahlen zwischen O0 und 19 zu erzeugen. Unser Programmlauf sieht 
folgendermaßen aus: 


RUN 
3 
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u. nn nn Buyer ua ee ee ee 
EEE I EN RI HE Han Re m 


10 PRINT INT(20*RND(1)) 
20 GOTO 10 


Bitte achten Sie darauf, daß Sie keine Klammer vergessen. Für jede 
linke Klammer muß eine rechte vorhanden sein, die sie wieder schließt. 
Wenn Sie das nicht berücksichtigen, liefert Ihnen der Computer eine 
Fehlermitteilung beim Programmlauf. 


25. Wie erzielen wir ganzzahlige Zufallszahlen von 1 bis 20 anstatt 
O0 bis 19? Nun, das ist sehr einfach. Wir brauchen nur eine 1 zur Zufalls- 
zahl zu addieren, was auf zwei Arten möglich ist: 


10 PRINT INT(20*RND(1)+1) 
20 GOTO 10 


oder 


10 PRINT INT(20*RND(1))+1 
20 GOTO 10 


2 
15 


Die “+1” kann hinzuaddiert werden, bevor oder nachdem der ganz- 


zahlige Anteil von 20*RND(1) ermittelt wurde. Die resultierende 
Zufallszahl ist in beiden Fällen gleich. 


Schreiben Sie jetzt drei einfache Programme, um eine Liste von ganz- 
zahligen Zufallszahlen auszudrucken. 


a) von 1 bis 10 einschließlich 


DC Baar Baer ee a TE a er Be ee er re 


NER UTE ELTERN TER EWEN UWE WR: 


see ee a er er Er rer 
PER Baer a a er ee ee ee ee er er 


a) 10 PRINT INT(10*RND(1))+1 b) 10 PRINT INT(100*RND(1))+1 
20 GOTO 10 20 GOTO 10 
oder oder 
10 PRINT INT(10*RND(1)+1) 10 PRINT INT(100*RND(1)+1) 
20 GOTO 10 20 GOTO 10 


c) 10 PRINT INT(12*RND(1))+1 
20 GOTO 10 
oder 
10 PRINT INT(12*RND(1)+1) 
20 GOTO 10 


26. Wie soll man vorgehen, wenn man Zufallszahlen von beispiels- 
weise 5 bis 10 einschließlich wünscht? Hier ein kleiner Hinweis: Um 
Zufallszahlen von 1 bis 10 statt O bis 9 zu erhalten, haben wir + 1 
addiert. Das kann man auch folgendermaßen darstellen: 


Obis9 
+ +1 
1 bis 10 
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ernennen. e 
re we Biene Bere we ae re era aid Re A 


c) Welche Zahl müßen wir addieren, um Zufallszahlen zwischen 11 und 
16 einschließlich zu erzeugen? ......»s2sreeeeee nenn nennen 


a) O bis 5 einschließlich bedeutet: 0, 1,2,3,4 und 5. 
b) +5; Obis5 
+5 +5 
5 10 
c) +11; Obis5 
+11_ +11 
11 16 


27.Sehen Sie sich jetzt noch einmal den Programmlauf in Abschnitt 
17 an, bevor wir weitergehen. Jetzt sind wir dazu in der Lage das Pro- 
gramm zum Üben der Addition zusammenzubauen. Hier ist das erste 
Teilstück des Programms, das den RUN erzeugte. 


100 REM***UEBUNGSPROGRAMM ZUR ADDITION 
200 REM***ERZEUGE ZUFALLSZAHLEN A UND B 
210 LET A=INT(10*RND(1)) 
220 LET B=INT(10*RND(1)) 


Für A und B werden folgende Werte erzeugt! ........---cccnnnene 


die Zufallsziffern 0, 1,2,3,4,5,6,7,8 oder 9 


28. Sind Sie jetzt bereit für das nächste Teilstück? Also weiter! 


300 REM***DRUECKE EINE AUFGABE UND FRAGE NACH 
ANTWORT 

310 PRINT 

320 PRINT A;"+";B;"="; 

330 INPUT C 
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In Zeile 320 finden wir etwas Neues. Das Statement PRINT A; +’';B;” 
="; fordert den Computer auf, den Wert von A, dann +, anschließend 
den Wert von B und schließlich = auszudrucken. Die einzelnen Bestand- 
teile dieses Statements sind durch Semikolon voneinander getrennt. Das 
vierte Semikolon, ganz am Ende, sagt dem Computer, daß er nicht zur 
nächsten Zeile auf dem Bildschirm weitergehen soll. Mit anderen 
Worten es befiehlt dem Computer dort stehen zu bleiben, wo er mit 
dem Drucken aufhörte. 


Erinnern Sie sich noch daran, daß das INPUT-Statement den Computer 
veranlaßt, ein Fragezeichen auszugeben? Dieses Fragezeichen wird in 
die gleiche Zeile wie die Information aus dem PRINT-Statement ge- 
schrieben, und zwar auf Grund des Semikolons am Ende von Zeile 320. 


Ist beispielsweise A = 7 und B = 5, verursachen die Zeilen 320 und 330 
folgende Ausgabe auf dem Bildschirm: 


7+5=? 


von Zeile 320 tt von Zeile 330 


Wenn A = 3 ist und B = 4, was wird dann durch die Statements in den 
Zeiten 320 und 330 ausgedruckt? . „ueuuo co sonen ne seunnen ar ananne 


29. Nachdem der Schüler eine Antowrt eingegeben und die Taste 
RETURN betätigt hat, weist der Computer diesen Wert der Variablen 
C zu und fährt fort. 


Bitte beachten Sie auch, wie wir in diesem Programm REM-Statements 
verwenden, um etwas über den Inhalt jedes Programm-Teilstücks zu 
sagen. Das ist zwar für den Computer bedeutungslos, hilft aber dem 
Leser des Programms, seine Arbeitsweise besser zu verstehen. 


400 REM***IST DIE ANTWORT RICHTIG? 
410 IF C=A+B THEN 610 


Wenn die Antwort (C) des Schülers richtig ist, geht der Computer 
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610 (Ist die Antwort falsch, fährt der Computer im normalen Pro- 
grammablauf fort.) 


30. Wenn die Antwort des Schülers nicht richtig ist, war die IF-THEN 
Bedingung falsch. Der Computer führt als nächstes folgende Statements 
aus, während er das Programm in der Reihenfolge der Zeilennummern 
abarbeitet: 


500 REM***DIE ANTWORT IST FALSCH 
510 PRINT “HMMM ... ICH HABE EIN ANDERES ERGEBNIS.” 
521 GOTO 310 


Nehmen wir einmal an, die Antwort ist falsch. Der Computer druckt 
dann “HMMM ... ICH HABE EIN ANDERES ERGEBNIS und geht 
weiter zur Zeile 310. Was geschieht als nächstes? (Wiederholen Sie 
evtl. noch einmal die vorangegangenen Abschnitte.) .. „rss rer: 


Der Computer wiederholt die Aufgabe. 


31.Sehen Sie sich noch einmal Abschnitt 29 an, der die Zeilen 400 
und 410 enthält. Sofern die Antwort des Schülers richtig war, ver- 
anlaßt Zeile 410 den Computer zur Zeile 610 weiterzugehen. 

600 REM***DIE ANTWORT IST RICHTIG 

610 PRINT “WEITER SO! RICHTIG BEANTWORTET!” 

620 GOTO 210 


Nehmen wir an, die Antwort ist korrekt. Der Computer druckt 
WEITER SO! RICHTIG BEANTWORTET! und geht dann weiter zur 
Zeile 210. Was geschieht als nächstes? .......:r ren erenrnennnnne 
Der Computer erzeugt eine neue Aufgabe (neue Werte für A und B) und 
druckt sie aus. 


32. Nachstehend finden Sie das Listing des vollständigen Übungspro- 


gramms. 


100 REM***UEBUNGSPROGRAMM ZUR ADDITION 

200 REM***ERZEUGE ZUFALLSZAHLEN A UND B 

210 LET A=INT(10*RND(1)) 

220 LET B=INT(10*RND(1)) 

300 REM***DRUCKE EINE AUFGABE UND FRAGE NACH DER 
ANTWORT 

310 PRINT 

320 PRINT A;"+";B;"="; 

330 INPUT C 

400 REM***IST DIE ANTWORT RICHTIG? 

410 IF C=A+B THEN 610 

500 REM***DIE ANTWORT IST FALSCH 

510 PRINT “HMMM ... ICH HABE EIN ANDERES ERGEBNIS.” 

520 GOTO 310 

600 REM***DIE ANTWORT IST RICHTIG 

610 PRINT “WEITER SO! RICHTIG BEANTWORTET! 

620 GOTO 210 


Ändern Sie Zeile 210 so, daß der Wert von A eine ganzzahlige Zufalls- 
zahl zwischen O und 19 ist, statt O bis 9. 
210 LET A= 


. 171 ee 


210 LET A=INT(20*REND(1)) 


33.Seien Sie bei der nächsten Aufgabe vorsichtig! Ändern Sie bitte 
Zeile 220 so, daß der Wert von B eine ganzzahlige Zufallszahl zwischen 
10 und 20 einschließlich ist. 

220 LET B= 


220 LET B=INT(11*RND(1))+10 


Damit erhalten wir die Zahlen 10 bis 20 einschließlich, also insgesamt 
11 Stück. 
0 bis 10 


+10 +10 
10 bis 20 


Ein Lauf mit den beiden genänderten Programmzeilen 210 und 220 
lieferte folgenden Ausdruck: 
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RUN 
6 + 14 =? 20 
WEITER SO! RICHTIG BEANTWORTET! 


4+10=?15 
HMMM... ICH HABE EIN ANDERES ERGEBNIS. 


4 +10 =?14 
WEITER SO! RICHTIG BEANTWORTET! 


6+16=? Und so weiter! 


34.Wenn die Antwort des Schülers richtig ist, druckt der Computer 
immer aus: WEITER SO! RICHTIG BEANTWORTET! Das ist ein 
bißchen eintönig und um diese Monotonie zu beseitigen, wollen wir 
das Programm so modifizieren, daß der Computer jeweils wahllos aus 
drei möglichen Antworten bei einem richtigen Ergebnis eine auswählt. 
Die Änderungen erfolgen in dem Programmbereich, der mit der Zeile 
600 beginnt. 


600 REM***DIE ANTWORT IST RICHTIG 

610 LET R=INT(3*RND(1))+7 ——— Beachten Sie die +1 

620 IF R=1 THEN 630 

621 IF R=2 THEN 650 

622 IF R=3 THEN 670 

630 PRINT “WEITER SO! RICHTIG BEANTWORTET!” 

640 GOTO 210 

650 PRINT “SIE HABEN ES GEWUSST! MACHEN SIE NOCH 
EINEN VERSUCH!” 

660 GOTO 210 

670 PRINT “TOLL HABEN SIE DAS GEMACHT! MACHEN SIE SO 
WEITER!" 

680 GOTO 210 


1,2 und 3 (Nicht 0, 1 und 2, da wir +1 am Ende der Zeile 610 addiert 
haben). 


35. Wir sehen also, daß R nur 1,2 oder 3 sein kann. 


a) Was druckt der Computer bei R=1? ......: 2222er esse enene nen 
b) Was druckt der Computer bei R=3? .... 2... sus seeeeeeeenen nn 
©). Was drückt der Computer für R=2? „u: +. 0.005 su sera so ne 


a) WEITER SO! RICHTIG BEANTWORTET! 
b) TOLL HABEN SIE DAS GEMACHT! MACHEN SIE SO WEITER! 
c) SIE HABEN ES GEWUSST! MACHEN SIE NOCH EINEN VERSUCH! 


36. Die Änderungen aus Abschnitt 34 haben wir in das ursprüngliche 
Programm aus Abschnitt 32 eingebaut und dann einen Lauf des modifi- 
zierten Programms gestartet. Hier sehen Sie was geschah: 


RUN 


9+7=? 16 
SIE HABEN ES GEWUSST! MACHEN SIE NOCH EINEN VERSUCH! 


6+3=?9 
TOLL HABEN SIE DAS GEMACHT! MACHEN SIE SO WEITER! 


5+9=?14 
WEITER SO! RICHTIG BEANTWORTET! 


Wenn die Antwort des Schülers falsch ist, druckt der Computer immer 
nur HMMM ... ICH HABE EIN ANDERES ERGEBNIS. Modifizieren 
Sie daher bitte das Programm in Abschnitt 32 so, daß der Computer, 
bei einer falschen Antwort, zufällig einen der beiden folgenden Sätze 
auswählt: 


HMMM ... ICH HABE EIN ANDERES ERGEBNIS. 
VERSUCHEN SIE ES MIT EINEM ANDEREN ERGEBNIS. 


a ee Baer Ba Br er Br ee ee ee er er er Be er Bee er er ee er ee ee er ee er er er Ze ee Br ar er er er ee 


520 IF 
ren nenn na man wenn ne nee EEE me 
NT. 2.0 Kae a Sa aan an ana a re u u rer 
550 GOTO 310 
einig ae 
570 GOTO 310 


De Be Be Be a er er Be ee Eee Be ee ee ee er a er Be Be a Be er Be ee ee er Beer er ee er Be ee er 


500 REM***DIE ANTWORT IST FALSCH 
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510 LET R=INT(2*RND())+1 

520 IF R=1 THEN 540 

530 IF R=2 THEN 560 

540 PRINT “HMMM ... ICH HABE EIN ANDERES ERGEBNIS.” 

550 GOTO 310 

560 PRINT “VERSUCHEN SIE ESMIT EINEM ANDEREN 
ERGEBNIS.” 

570 GOTO 310 


620 IF R=1 THEN 630 
621 IF R=2 THEN 650 
622 IF R=3 THEN 670 
können durch ein einzelnes Statement ersetzt werden. 


37. Die drei Statements: 


620 ON R GOTO 630, 650, 670 
IF R=1 IF R=2 IF R=3 


Mit dieser Änderung kann das Programm-Segment in Abschnitt 34 wie 
folgt umgeschrieben werden. 


600 REM***DIE ANTWORT IST RICHTIG 

610 LET R=INT(3*RND(1))+1 

620 ON R GOTO 630, 650, 670 

630 PRINT “WEITER SO! RICHTIG BEANTWORTET!” 

640 GOTO 210 

650 PRINT “SIE HABEN ES GEWUSST! MACHEN SIE NOCH EINEN 
VERSUCH!” 

660 GOTO 210 

670 PRINT “TOLL HABEN SIE DAS GEMACHT! MACHEN SIE SO 
WEITER!” 

680 GOTO 210 


a) Sehen Sie sich Zeile 610 einmal an. Welche Werte kann R annehmen? 


arte ei nee a Balearen Ban ae u Ft AT 


b) Nehmen wir an, während eines Laufs wird von RND(1) in Zeile 610 
die Zufallszahl .34319 erzeugt. Welchen Wert erhält Rdann? .....- 


een a ai fe REEEN I Diana a ee ne ee TE SANT 


c) In welche Zeile wird das “ON R GOTO’’-Statement in diesem Fall 
den Computer schicken? .... ser ernennen nenn 


130 


Tr 
b) 2, INT(3*.34319)+1 = INT(1.02957)+1 =1+1=2 
c) Zeile 650 


38. Allgemein hat das ON... . GOTO-Statement die folgende Form: 
ON e GOTOR, ‚Ra, Ra,» ‚In 


Darin kann e jeder beliebige BASIC-Ausdruck sein, 8,, 2, usw. bis 
8 sind Zeilennummern. Gültige Werte für e sind die ganzen Zahlen 
172.3; .. n. Für e = 1 geht der Computer zur Zeile 2,. Füre=2 geht 
er zur Zeile 2,. Und so weiter. 


Verwenden Sie einON... GOTO-Statement, um die beiden IF-State- 
ments in den Zeilen 520 und 530 unseres Programms aus Abschnitt 36 
zu ersetzen. 


500 REM***DIE ANTWORT IST FALSCH 

510 LET R=INT(2*RND(1))+ 

1 

540 PRINT “HMMM .... ICH HABE EIN ANDERES ERGEBNIS.“ 

550 GOTO 310 “ 

560 PRINT “VERSUCHEN SIE ES MIT EINEM ANDEREN 
ERGEBNIS!” 

570 GOTO 310 


520 ON R GOTO 540, 560 


39. Jetzt werden wir eine wunderbare Methode kennenlernen, um Platz 
zu sparen. Hier finden Sie den ersten Teil unseres Programms zur Übung 


= Addition, und zwar in einer Version mit mehreren Statements je 
eile. 


100 REM***UEBUNGSPROGRAMM ZUR ADDITION 

200 REM***ERZEUGE ZUFALLSZAHLEN A UND B 

210 LET A=INT(20*RND(1)) 

220 LET B=INT(11*RND(1))+10 

300 REM***DRUCKE EINE AUFGABE UND FRAGE NACH DEM 
ERGEBNIS 
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310 PRINT:PRINT A;”+";B;”="; : INPUT C 

400 REM***IST DIE ANTWORT RICHTIG? 

410 IF C=A+B THEN 600 

500 REM***DIE ANTWORT IST FALSCH 

510 LET R=INT(2*RND(1))+1 

520 ON R GOTO 540, 560 

540 PRINT “HMMM ... ICH HABE EIN ANDERES ERGEBNIS.“ 
: GOTO 310 

560 PRINT “VERSUCHEN SIE ES MIT EINEM ANDEREN 
ERGEBNIS!” : GOTO 310 


In diesem Programm enthält die Zeile 310 drei Statements, während die 
Zeilen 540 und 560 jeweils zwei Statements enthalten. Welches Symbol 
wird in einer Zeile, die mehr als ein Statement enthält, zwischen den 
einzelnen Statements verwendet? ...... sr eeeerernenrn rn nenn 
ein Doppelpunkt (:) 

310 PRINT : PRINT A; + ;B; “= ";: INPUT C 


40. Zur besseren Lesbarkeit sehen wir gewöhnlich zu beiden Seiten des 
Doppelpunktes einen Zwischenraum vor. Das ist jedoch nicht not- 
wendig. 


Ob wir Zwischenräume haben oder nicht, der Computer versteht die 
Statements so oder so. 


Im letzten Abschnitt haben wir Ihnen nicht das ganze Programm ge- 
zeigt, da wir gern möchten, daß Sie den mit Zeile 600 im Programm- 
beispiel in Abschnitt 37 beginnenden Programmteil umschreiben, und 
zwar unter Verwendung von Mehrfachstatements in den Zeilen, in 
denen es sinnvoll ist, mehrere Statements zusammenzufassen. 


600 REM***DIE ANTWORT IST RICHTIG 

610 LET R=INT(3*RND(1))+1 

620 ON R GOTO 630, 640, 650 

CH ana nem naeh FEAR 5 aa a nen nr ee 


630 PRINT "WEITER SO! RICHTIG BEANTWORTET!" : GOTO 210 

640 PRINT "SIE HABEN ES GEWUSST! MACHEN SIE NOCH EINEN 
VERSUCH!” : GOTO 210 

650 PRINT "TOLL HABEN SIE DAS GEMACHT! MACHEN SIE SO 
WEITER!” : GOTO 210 


41.Hier ist jetzt endlich das Computerspiel, das wir Ihnen bereits 
früher in diesem Kapitel versprochen hatten. Beachten Sie die Ver- 
wendung von Mehrfach-Statements in den Zeilen 150, 160, 170 und 
180. 


100 REM***ERRATEN SIE MEINE ZAHL 

110 LET X=INT(100*RND(1))+1 

120 PRINT 

130 PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100.” 

140 PRINT "ERRATEN SIE MEINE ZAHL!" 

150 PRINT : PRINT “IHR VERSUCH“ ; : INPUT G 

160 IF G ( X THEN PRINT “VERSUCHEN SIE ES MIT EINER 
GROESSEREN ZAHL.” : GOTO 150 

170 IF G ) X THEN PRINT "VERSUCHEN SIE ES MIT EINER 
KLEINEREN ZAHL.‘ : GOTO 150 

180 IF G = X THEN PRINT “BRAVO! SIE HABEN MEINE ZAHL 
ERRATEN!” : GOTO 110 


RUN 


ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100. 
ERRATEN SIE MEINE ZAHL! 


IHR VERSUCH? 50 
VERSUCHEN SIE ESMIT EINER GROESSEREN ZAHL. 


IHR VERSUCH? 75 
VERSUCHEN SIE ES MIT EINER KLEINEREN ZAHL. 


IHR VERSUCH? 73 
BRAVO! SIE HABEN MEINE ZAHL ERRATEN! 


ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100. 
ERRATEN SIE MEINE ZAHL! 


IHR VERSUCH? Und so weiter. 
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Zeile 110 fordert den Computer auf, eine Zufallszahl zu erzeugen und 
sie in der Variablen X zu speichern. Diese Zufallszahl isteine ......-- 
nase HE, zwischen ...::0 UÜNduneuer ee» 


ganze Zahl; 1; 100 


42. Mehrfach-Statements in einer Zeile ermöglichen uns eine weitere 
angenehme Abkürzung. Sie erinnern sich sicher daran, daß der Com- 
puter, sofern der Vergleich in einem IF-THEN-Statement falsch ist, den 
Rest des Statements überspringt und zur nächsten Zeile des Programms 
in der Reihenfolge der Zeilennummern weitergeht. Das schöne daran 
ist, daß der Computer auch alle anderen Statements, die einem falschen 
IF-THEN-Vergleich folgen überspringt, sofern Sie sich in der gleichen 
Zeile befinden. Die restlichen Statements dieser Zeile werden nur ausge- 
führt, wenn der Vergleich im IF-THEN-Statement wahr ist. Sie können 
den Computer mit einer Zeile also dazu veranlassen, mehr als nur eine 
Operation auszuführen, sofern der Vergleich war ist. 


Sehen Sie sich dazu noch einmal die Zeile 170 an, so wie sie nach- 
folgend aufgeführt ist. Der Computer wird sowohl PRINT als auch 
GOTO ausführen, sofern die Bedingung wahr ist, aber er tut keins von 
beiden, wenn die Bedingung falsch ist. 


170 IF G)X [WAHR_>THEN PRINT “VERSUCHEN SIE ESMIT 
EINER KLEINEREN ZAHL.” : GOTO 150 


Die Ausführung dieses Statements 
erfolgt, wenn die Bedingung wahr 
ist. Nichts geschieht, wenn sie 
falsch ist. 


Die Bedingung lautet: G)X 


a) Nehmen Sie an, G = 90 und X = 73. Ist die Bedingung WAHR oder 
FAUSCH?. eu n.u0u 0 Share gan ne ae Er ee ee 
b) Nehmen Sie an, G = 70 und X = 73. Ist die Bedingung WAHR oder 
FALL SCHI aan a a a nn ran ne a RE 4 
c) Nehmen Sie an, G = 73 und X = 73. Ist die Bedingung WAHR oder 
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a) WAHR; b) FALSCH; c) FALSCH 


43. Zeile 150 veranlaßt den Computer “IHR VERSUCH?” auszu- 
drucken. Wenn der Spieler einen Versuch eintippt, speichert der Com- 
puter ihn in der Variablen G. Die Zeilen 160, 170 und 180 vergleichen 


den Versuch G mit der Zufallszahl X. Sehen wir uns Zeile 160 einmal 
an: 


160 IF{X THEN PRINT “VERSUCHEN SIE ESMIT EINER 
GROESSEREN ZAHL.“ : GOTO 150 


Wenn der Versuch G kleiner als die Zufallszahl X ist, druckt der Com- 
puter die Mitteilung VERSUCHEN SIE ES MIT EINER GROESSEREN 
ZAHL aus und geht dann (GOTO) zur Zeile 150, um nach einem neuen 
Versuch zu fragen. Wenn jedoch G größer oder gleich X ist, werden 
weder die PRINT- noch die GOTO-Anweisung ausgeführt. 


160 IFG(X THEN PRINT “VERSUCHEN SIE ES MIT 
EINER KLEINEREN ZAHL.” : GOTO 150 


Diese Anweisungen werden ausgeführt, 
wenn die Bedingung WAHR ist. Ist sie 
FALSCH, erfolgt nichts. 


zoverpn 


Ist daher G { x FALSCH, geht der Computer zur Zeile 170. Beschreiben 
Sie, was geschieht, wenn er Zeile 170 ausführt. 


Dr Br ar ar ee 
Dar Dur 7 er TE Ye ve Dr er Ir Te er 
nern 
. rn ene 


a) druckt der Computer die Mitteilung VERSUCHEN SIE ES MIT 
EINER KLEINEREN ZAHL und geht anschließend zur Zeile 150 für 
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einen weiteren Versuch. . 
b) werden weder die PRINT- noch die GOTO-Anweisung ausgeführt. 


44. Wenn G (X FALSCH und G)X FALSCH sind, wird der Computer 
schließlich zur Zeile 180 gelangen. Dieser Vorgang Ist anschließend 
noch einmal etwas verdeutlicht zu sehen: 


160 IF 6 (x [WAHR >THEN PRINT “VERSUCHEN SIE ES MIT 


EINER GROESSEREN ZAHL.” : GOTO 150 


170 IF 6) X [[WAHR>THEN PRINT “VERSUCHEN SIE ESMIT 


EINER KLEINEREN ZAHL.” : GOTO 150 


180 IFG=X THEN PRINT “BRAVO! SIE HABEN 


MEINE ZAHL ERRATEN!”: GOTO 110 


4-Dieser Fall wird niemals vorkommen, da, wenn G(X 
und G) X FALSCH sind, G = X wahr sein muß. Da- 
her hätten wir Zeile 180 auch ohne IF G=X, einfach 
unter Verwendung eines Print Statements schreiben 


können. 


Nehmen wir an, der Spieler hat die Zahl erraten. Daher ist G \ x 
FALSCH, G ) X FALSCH und natürlich G = X WAHR. Was geschieht 


.. er. 

mie a wear a ni‘ 
ne ee ELLE A 

een mn‘ 


Der Computer druckt den Text BRAVO! SIE HABEN MEINE ZAHL 
ERRATEN, geht dann zur Zeile 110, wo er angewiesen wird, sich eine 
neue Zahl auszudenken und beginnt mit einem neuen Spiel. 


45. Für sehr junge Spieler kann es vielleicht wünschenswert sein, den 
Bereich der durch das Statement mit der RND-Funktion (Zeile 110) er- 
zeugen ganzen Zahlen einzuschränken. Statt Zahlen zwischen 1 und 
100 könnten wir beispielsweise nur Zahlen zwischen 1 und 25 vorsehen. 
Umgekehrt werden erfahrene Spieler vielleicht einen größeren Zahlen- 
bereich haben wollen, beispielsweise 1 bis 1000. 


a) Modifizieren Sie die Zeilen 110 und 130 so, daß der Zahlenbereich 
zwischen 1 und 25 liegt: 
110 


00 See ee ee re ie re eu ei‘ 


IE wie ge rei a er RER ee ae ee re 


b) Modifizieren Sie die Zeilen 110 und 130 so, daß der Zahlenbereich 
jetzt zwischen 1 und 1000 liegt: 
110 


eä  ERETR Erg ee wien are ar ee ee 
ea he ee a ee er ie RETTET AL RE ee © 


a) 110 LET X=INT(25*RND(1))+1 

130 PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 25.” 
b) 110 LET X=INT(1000*RND(1))+1 

130 PRINT “ICHDENKEMIREINEZAHLZWISCHEN 1 UND 1000.” 


46. Hier finden Sie einen bequemen Weg zur Änderung des Zahlenbe- 
reichs: 


100 REM***ERRATEN SIE MEINE ZAHL 

105 LET R=100 

110 LET X=INT(R*RND(1))+1 

120 PRINT "ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND”; R 


Der Zahlenbereich wird jetzt durch 1 und R festgelegt, wobei R in Zeile 
105 ein Wert zugewiesen wird, der in den Zeilen 110 und 130 benutzt 
wird. Um den Zahlenbereich zu verändern, brauchen Sie jetzt nur noch 
die Zeile 105 ändern. Angenommen, Sie wollen Zahlen im Bereich von 
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EEE 


1 bis 500 haben, was müssen Sie dann in Zeile 105 schreiben? 
OB ae sh ae er a a ee ee ee 


105 LET R=500 oder einfach 105 R=500 


izi i . - ts und 
47. Modifizieren Sie, durch Verwendung von IF THEN-Statemen 
Zeilen mit Mehrfach-Statements, das ZAH LENGROESSEN-Programm 
aus Abschnitt 14 dieses Kapitels derart, daß ein Lauf so aussieht, wie 


nachfolgend angegeben: 


RUN 
GEBEN SIE EINE ZAHL EIN, UND ICH WERDE IHNEN SAGEN, OB 


SIE KLEINER ALS 100 IST, ZWISCHEN 100 UND 1000 LIEGT, 
ODER GROESSER ALS 1000 ist. 


IHRE ZAHL? 99 
IHRE ZAHL IST KLEINER ALS 100. 


IHRE ZAHL? 999 
IHRE ZAHL LIEGT ZWISCHEN 100 UND 1000. 


IHRE ZAHL? 1001 
IHRE ZAHL IST GROESSER ALS 1000. 


IHRE ZAHL? 


. . 
an. na Re ee 
. 0017 Ten ne en“ 
ernennen 
............. 
ernennen. 
ee na uni ee ie re 
on 1111er e 0" 
. een nen“ 
NER ri re re ee en ee 
Berlin nenne es 
. 
...........e„,u.2.,. 
Ei ea are euer wre 
. or ren." 
. ernennen 
a... 
. 0er nnee 
—ooaneer rennen ne 
PIE TRr Dar Vor Du u DL Br Br Dr Br Be) 
ed TB Fun enn a EEE IE 
enden ee.“ 
ernennen“ 
. rennen 
eo nee en ne 
on nennen. 
. 
ee ee 
Pe Bar ar BL vr Bu Br Br 
orten ne 
er eeeenenen 
... 
ern,“ 
11 1 [en nnne. 
PR Bar Ir Dr vor Bu Br Br BL BB Er Er 
a ur Same 2 u Ui a Sr He) 


—er]nrnnennnne* 
: a naeh he ee ee a 
Paar Tor ar Dr Doc u EL Bu BE Be 


100 REM***NEUES ZAHLENGROESSEN-PROGRAMM 
110 PRINT “GEBEN SIE EINE ZAHL EIN, UND ICH WERDE IHNEN 


SAGEN, OB 
120 PRINT "SIE KLEINER ALS 100 IST, ZWISCHEN 100 UND 
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1000 LIEGT,” 

125 PRINT “ODER GROESSER ALS 1000 IST.” 

130 PRINT : PRINT “IHRE ZAHL”; : INPUT N 

140 IF N 1000 THEN PRINT “IHRE ZAHL IST KLEINER ALS 
100.“ : GOTO 130 

150 IF N = 1000 THEN PRINT “IHRE ZAHL LIEGT ZWISCHEN 
100 UND 1000.” : GOTO 130 

160 IF N 1000 THEN PRINT “IHRE ZAHL IST GROESSER ALS 
1000. : GOTO 130 


48. Wir möchten gern, daß sie jetzt Ihre bisher gesammelten Kenntnisse 
in BASIC dazu verwenden, ein Programm auszuarbeiten und zu schrei- 
ben, das es ermöglicht, das Einmaleins von O0 x O bis 12 x 12 zu er- 
lernen, bzw. zu wiederholen. Wir wollen dieses Programm MULTIPLI- 
KATIONS-UEBUNGS-PROGRAMM nennen. Sehen Sie sich den Pro- 
grammlauf an und bauen Sie dann Ihr Programm zusammen. Wenn Sie 
einen Computer zur Verfügung haben, überprüfen Sie bitte Ihr eigenes 
Programm, bevor Sie sich unsere Lösung ansehen. 


Vergleichen Sie die jeweilige Lösung des Spielers mit der richtigen 
Lösung. 


Wenn die Antwort des Spielers kleiner als das korrekte Ergebnis ist, 
drucken Sie VERSUCHEN SIE ES MIT EINER GROESSEREN ZAHL 
und wiederholen die Aufgabe. 


Liegt die gegebene Antwort über dem richtigen Ergebnis, drucken Sie 
VERSUCHEN SIE ES MIT EINER KLEINEREN ZAHL und wieder- 
holen die Aufgabe. 


Ist das Ergebnis richtig, teilen Sie dem Spieler mit, daß Sie oder er die 
richtige Zahl eingetippt hat. 


Unser Programm verwendet drei verschiedene Mitteilungen, die bei 
einem korrekten Ergebnis ausgedruckt werden: 

DAS IST RICHTIG! 

KORREKTES ERGEBNIS 

GUTE LEISTUNG! WEITER SO! 
RUN 


2x4=?8 
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140 


GUTE LEISTUNG! WEITER SO! 


2x8=? 15 
VERSUCHEN SIE ES MIT EINER GROESSEREN ZAHL. 


2x8=?16 
KORREKTES ERGEBNIS 


10x9 =? 100 
VERSUCHEN SIE ESMIT EINER KLEINEREN ZAHL. 


11x7=? 


öde ie ei er ri ee ee ae N 
ei ae Miete ee a ee ee ee ee ri eg ae ne 
ren ir re RR Be nee er ee he ae re een 
ee ae ae Bee ren ie u ee ee ne ai ee ee © 
are ee oa ee ad een ae le re a en 
Su ii aa ii ee a are a ae ee eu ee > 
N LE Era re Bee ah ee ae ee ae ie re a ee we 
Bi ar re ai ae ae ae ei ner re a eeeie Maue 


ee a Biere ir ee here u eu eu en 


100 REM***MULTIPLIKATIONS-UEBUNGS-PROGRAMM 

110 LET A=INT(12*RND(1))+1 : LET B=INT(12*RND(1))+1 

120 PRINT : PRINT A; “X” ;B; “=" ;: INPUT C 

130 IF C ( A*B THEN PRINT “VERSUCHEN SIE ES MIT EINER 
GROESSEREN ZAHL.” : GOTO 120 

140 IF C ) A*B THEN PRINT “VERSUCHEN SIE ES MIT EINER 
KLEINEREN ZAHL.” : GOTO 120 

150 LET R=INT(3*RND(1))+1 :ON R GOTO 160, 170, 180 

160 PRINT “DAS IST RICHTIG!“ : GOTO 110 

170 PRINT “KORREKTES ERGEBNIS“ : GOTO 110 

180 PRINT “GUTE LEISTUNG! WEITER SO!” : GOTO 110 


49. Wir erwähnten in Kapitel 2, daß einige der älteren BASIC-Versionen 
ein END-Statement als letztes Statement in einem Programm benötigen. 
Die meisten BASIC-Versionen für Heim-Computer erfordern dieses 
abschließende END nicht. Das END- und das verwandte STOP-State- 
ment können jedoch sehr hilfreich ein, um ein Programm an einer 
anderen Stelle, als in der Zeile mit der höchsten Zeilennummer zu 
beenden. 


Es ist oft sehr praktisch, wenn man ein Programm als Ergebnis einer IF- 
THEN-Entscheidung beenden oder anhalten kann. END oder STOP 
können beispielsweise ausgeführt werden, wenn die Bedingung WAHR 
ist, wie die Beispiele zeigen: 


20 IF X = 10 THEN STOP 
20 IF X = 10 THEN END 


In ATARI-BASIC gibt der Computer, bei Verwendung von Stop, eine 
Mitteilung aus. Wie nachfolgende Zeile zeigt, enthält sie die Zeilen- 
nummer, in der das STOP-Statement auftrat und der Lauf endete. 


STOPPED AT 20 
[) 


Bei einem Lauf, der durch ein END-Statement beendet wird, wird nur 
das übliche READY angezeigt. 


In der Zeile mit Mehrfach-Statements können END und STOP beispiels- 
weise folgendermaßen verwendet werden: 


120 IF Y*Q=100 THEN PRINT “DAS WAER’S, LEUTE” : END 
120 IF Y*Q=100 THEN PRINT “DAS WAER’S, LEUTE“ : STOP 


Am Ende eines Mathematik-Übungsprogramms oder eines Spielpro- 
gramms können Sie beispielsweise folgende Lösung vorsehen: 


310 PRINT MOECHTEN SIE WEITERSPEILEN (JA ODER NEIN)“ 
;; INPUT AS 

320 IF A = "NEIN THEN END 

330 GOTO 100 


Fügen Sie in ein Zählschleifen-Programm eine Zeile ein, um dem Com- 
puter mitzuteilen, daß er das Zählen beenden soll, wenn F größer als 6 
ist. 


10 LETF=1 
ea na han 
30 PRINT“F=";F 

40 LETF=F+1 
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50 GOTO 20 


20 IFF)6&THENEND 
20 IFF)6 THEN STOP 


EIGENTEST 


Arbeiten Sie jetzt bitte den anschließenden Eigentest durch. Sie können 
dabei feststellen, was Sie in Kapitel 4 gelernt haben. 


1. Geben Sie die BASIC-Symbole für jeden der folgenden Vergleiche an: 


gleich 

kleiner als 

größer als 

kleiner oder gleich 
größer oder gleich 
ungleich 


rennen“ 


2. Beschreiben Sie jedes IF-THEN-Statement mit Worten. Das heißt, 


Sie sollen angeben, welche Anweisung das Statement dem Compu- 


ter erteilt. 
a) IFG=XTHEN 200 ...:::00 u css nennen nn nn 


are ae Bu ee ar Reale ie ee ee u een De MN BR 2 


RR ee ee ae ee ee ie ee nee 


na a le TEE Le ee ee ee nt 


DE SE Rimini ae ee re ee eher ei u a ee ne 


3.Schreiben Sie für jede der folgenden Anweisungen ein IF-THEN- 


Statement. 
a) Wenn der Wert von N kleiner oder gleich 7 ist, gehe zu Zeile 15. 


b) Wenn A kleiner als 2*P ist, dann erhöhe den Wert von N um 1 und 


hehe zur Zeile 180: -...: - aucu wc vorsana vo nnaunne ne ne 
c) Wenn M/N gleich INT(M/N) ist, dann drucke die folgende Mit- 
teilung aus: M IST GANZZAHLIG TEILBAR DURCHN. ....... 


RE SE TE SICHER me Var Ylr JR var mE Sc Mur Zar Doc Hl 27 mer Tr Dur Si Tor 322 Cor zur Ser Bar Sur DET ar ST Bar Bar Ta JEr ae JBec DL Ze Bar BEL Zur Zu BEL DE 


4. Vervollständigen Sie das folgende Programm, um festzustellen, nach 
wievielen Jahren sich Ihr Sparguthaben verdoppelt hat. Verwenden 
Sie Mehrfach-Statements in Zeile 190. 


100 REM***WIEVIELE JAHRE DAUERT ES, BIS SICH IHR GELD 
VERDOPPELT HAT? 

110 PRINT “WENN SIE DIE HOEHE DES SPARGUTHABENS UND” 

120 PRINT "DEN JAHRESZINSSATZ EINGEBEN, SAGE ICH” 

130 PRINT “IHNEN, WIEVIELE JAHRE ES DAUERT, BIS SICH” 

135 PRINT “IHR GELD VERDOPPELT HAT.” 

140 PRINT 

150 PRINT "SPARGUTHABEN“ ; : INPUT P 

160 PRINT "ZINSSATZ“ ; : INPUT R 

170 LET N=1 

180 LET A=P*(1+R/100) t N 

En nen an are na een 

200 PRINT 

210 PRINT “ANZAHL DER JAHRE:“;N 

220 PRINT “HOEHE DES SPARGUTHABENS ZU DIESEM 
ZEITPUNKT DM'":A 

RUN 

WENN SIE DIE HOEHE DES SPARGUTHABENS UND 

DEN JAHRESZINSSATZ EINGEBEN, SAGE ICH 

IHNEN, WIEVIELE JAHRE ES DAUERT, BIS SICH 

IHR GELD VERDOPPELT HAT. 


SPARGUTHABEN? 1000 
ZINSSATZ? 6 


ANZAHL DER JAHRE: 12 
HOEHE DES SPARGUTHABENS ZU SIESEM ZEITPUNKT: 
DM 2012.2 (2012.19638) 
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5, Wie sieht der Lauf des folgenden Programms aus? Schreiben Sieihh haben.) 
hin. 100 REM***WAPPEN ODER ZAHL? 
BINNEN u anna never men Ran ar aan 
a 120 IF C=0 THEN PRINT WAPPEN“ : GOTO 110 
- ale 130 IF C=1 THEN PRINT ZAHL” : GOTO 110 
40 IF K (=5 THEN 20 B. 
Be WAPPEN 
a a Kai ea are era Be. 
es nenn en FRE ae a ERPPEN 


........ 
sur Br er 
een na Ten ie RER ra“ 


6. Wie wird ein Lauf des folgenden Programms aussehen? Antworten zum Eigentest 


10 LETK=1 
20 IF K(5 THEN K=K+1 : GOTO 20 Die jeweils in Klammern stehenden Zahlen, geben in der schon be- 
30 PRINT K kannten Weise die Abschnitte in diesem Kapitel an, in denen der 
| jeweilige Stoff behandelt wurde. 
RUN 
Da ee ige ROTE Kin ee 1. = gleich 
arme ran RER Da ann a E leirer:aie 
7. Beschreiben Sie die Zufallszahlen, die durch jeden der folgenden ) größer als 
Ausdrücke erzeugt werden. (= kleiner oder gleich 
EIRNDINN u uuunn un anne 6 aaa ra an a nn man ar u ) = größer oder gleich 
ae Re RENTE En na un Be TEE ERTEETERR | () ungleich (Abschnitt 7) 
BEENTENITN _, 0.8. er we a u EEE TETTE | 
RE HEN DERE  e | 2.a) Wenn der Wert von G gleich dem Wert von X ist, gehe zu Zeile 
a ee RN 7 ae un ri air Trainer | 200. Anderenfalls (G=X ist FALSCH) fahre in der gewohnten 
FRNDITN 44% aaa a sen ne ne ae & 
ee mE: | Reihenfolge fort. (Abschnitte 1 -- 8) 
AyINTIZFRNDINIF » aonn. wunseaa a van ar mn nenne b)Wenn der Wert von X größer oder gleich ) ist, erhöhe den Wert 
rn ne RE FR TE a nr aa Re von C um 1. Anderenfalls (X ) =0 ist FALSCH), führe den LET- 
SINTISRNDIIN-—T „.. .» uunnn na ann nen na Teil des Statements nicht aus. In beiden Fällen erfolgt die weitere 
a er ra a Tre ne AI RER Aa vr ns BE mimeheitumg ie den Helbenialoe vier" Sellannummen, 
314159" RNDIN] +. 00004 wa nn nr ara (Abschnitt 10) 
HERRN EG IR euer a Vrnanare Dia EIER FR ERREE B c) Wenn N () INT({N) WAHR ist, bedeutet das, daß der Wert von N 
RE a0: og icht ganzzahlig ist. Drucke in diesem Fall den String N IST 
i h unvollständiges Programm, welches das B- . i . 
8. nn Polaggan oder Zahl?‘‘) simuliert. Bitte vervoll- NICHT GANZZAH LIG und gehe zur Zeile 210. Ist N jedoch eine 
ständigen Sie es. (Hinweis: C kann den Wert O oder 1 als Zufallszahl ganze Zahl, wird N € ) INT(N) FALSCH sein. In diesem Fall 
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werden weder PRINT noch GOTO ausgeführt, und der Computer 
arbeitet in der regulären Reihenfolge der Zeilennummern weiter. 
(Abschnitte 1 — 8, 20 — 23, 42) 


d) Ist der Wert von A2 plus B2 gleich dem Wert von C2, dann drucke 
den String JA, ES HANDELT SICH UM EIN RECHTWINKLIGES 
DREIECK. Anderenfalls (Bedingung ist FALSCH) drucke den 
String nicht. In beiden Fällen fahre jedoch mit der regulären 
Reihenfolge der Zeilennummern fort. 


.a) IFN(=7 THEN GOTO 15 


b) IFA (2*P THEN LET N=N+1: GOTO 180 

e)IF M/N = INT(M/N) THEN PRINT “M IST GANZZAHLIG 
TEILBAR DURCH N.” 

(Abschnitte 1 — 10) 


‚190 IF A(2*P THEN LETN=N +: GOTO 180 


Solange die neu berechnete Höhe des Sparguthabens A kleiner als der 
doppelte Wert des Anfangs-Sparguthabens P ist, erhöhe das Jahr N 
um 1 und gehe zurück zur Zeile 180, um einen neuen Betrag zu 
errechnen. (Abschnitte 9 — 10) 


. RUN 


1 
2 
3 
4 
5 
Da sich das PRINT-Statement innerhalb der Schleife befindet, wird 
es bei jedem Durchlauf ausgeführt. (Abschnitt 8) 


.RUN 


5 

In diesem Beispiel befindet sich das PRINT-Statement außerhalb der 
Schleife. Es wird daher nur einmal ausgeführt, nachdem die Schleife 
vollendet wurde (Abschnitt 8) 


a) Zahlen zwischen O und 1. Jede Zufallszahl ist größer als O, aber 


kleiner als 1. Richtig wäre auch die folgende Antwort: 
O<(RND(N) (1 (Abschnitte 16, 17) 


b) Zahlen zwischen O und 2. Jede Zufallszahl ist größer als O, aber 


u Zul 





8.110 LET C = INT(2*RND(1)) 


kleiner als 2. Somit gilt: 

0(2*RND(1) (2 (Abschnitt 17 — 19) 
c) Ooder 1. Andere Werte sind nicht möglich. (Abschnitte 20,23 — 26) 
d) 1 oder 2. (Abschnitte 20, 23 — 26) 
e) —1,0 oder 1. (Abschnitte 20, 23 — 26) 


f) Zahlen zwischen O und 3.14159. Jede Zufallszahl ist größer als O, 
aber kleiner als 3.14159, so gilt: 
0 (3.14159*RND(1) (3.14159 
Da 3.14159 ist eine Näherung von 7 ist, könnten wir auch etwas 
unpräzise sagen, daß die Zufallszahlen zwischen O und liegen. 
(Abschnitte 20, 23 — 26) 


(Abschnitte 26, 27) 
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NOTIZEN 


KAPITEL5 


READ und DATA arbeiten zusammen 


Dieses Kapitel wurde so geschrieben, daß Sie Gelegenheit haben die 
bereits erlernten BASIC-Statements und Programmiertechniken zu üben 
und Ihrem Vorrat an Programmiertricks einige neue hinzufügen können. 
Sie werden anschließend ein größeres Verständnis für die Möglichkeiten 
des PRINT-Statements haben, um die Form der Ausgabe Ihres Pro- 
grammes besser zu gestalten und wirkungsvollere Instruktionen zu 
schreiben. Zusätzlich werden Sie zwei häufig benutzte Statements 
erlernen, die immer zusammenarbeiten, um Variablen Werte zuzu- 
ordnen: die READ- und DATA-Statements, wenn Sie dieses Kapitel 
beendet haben, können Sie.... 


© READ-Statements benutzen, um einer oder mehr Variablen 
gleichzeitig Werte oder Strings zuzuweisen, und zwar aus dem 
Vorrat im DATA-Statement; 


© die Abstände in der Programmausgabe, durch die Verwendung 
von Komma und Semikolon zum Trennen der einzelnen Aus- 
gaben innerhalb des PRINT-Statements beeinflussen; 


© die Standard-Druck-Position im Ausdruck indentifizieren und 
PRINT-Statements unter Verwendung trennender Kommas 
schreiben. 


1. Sie haben gesehen, wie LET- und INPUT-Statements dazu verwendet 
werden können, Variablen Werte zuzuordnen. Eine dritte Methode ver- 
wendet eine Kombination von zwei Statements, nämlich READ und 
DATA, um Variablen Werte zuzuweisen. 


10 READX 

20 PRINT “BEI DIESEM SCHLEIFENDURCHLAUF ISTX =";X 
30 GOTO 10 

40 DATA 10, 15, 7, 3.25, 11 

RUN 


BEI DIESEM SCHLEIFENDURCHLAUF IST X = 10 
BEI DIESEM SCHLEIFENDURCHLAUF IST X = 15 
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BEI DIESEM SCHLEIFENDURCHLAUF ISTX=7 
BEI DIESEM SCHLEIFENDURCHLAUF IST X = 3.25 
BEI DIESEM SCHLEIFENDURCHLAUF IST X = 11 
ERROR-— 6 AT LINE 10 


Das Statement 10 READ X befiehlt dem Computer, einen Wert aus 
dem DATA-Statement zu lesen und diesen Wert der Variablen X zuzu- 
weisen. Jedesmal bei der Ausführung des READ-Statements (bei jedem 
Schleifendurchlauf also), liest der Computer den nächsten Wert aus dem 
DATA-Statement und weist ihn der Variablen X zu. Der Computer 
merkt‘ sich dabei, welche Werte der Reihe nach gelesen wurden. Dies 
geschieht, indem er gleichsam einen “Zeiger‘ im Data-Statement bei 
jedem Lesevorgangg um einen Schritt weiterrückt. 


2. Als der Computer das Programm ausführte, las er bei jedem 
Schleifendurchlauf einen Wert aus dem DATA-Statement und druckte 
ihn aus. Beim letzten Durchlauf schließlich versuchte er noch keine 
weitere Zahl zu finden. Da sich im DATA-Statement jedoch keine mehr 
befand, durckte er ERROR 6 IN LINE 10 aus, was bedeutet: “In Zeile 
10 sind keine weiteren Daten mehr vorhanden.” Es handelt sich dabei 
eigentlich garnicht um einen Fehler. Diese Angabe informiert Sie 
lediglich darüber, daß der Computer alle zur Verfügung stehenden 
Daten verwendet hat und versuchte, weitere zu finden, was aber nicht 
möglich war. 


Wieviele neue Werte wurden der READ-Variablen beim Lauf des Pro- 
gramms in Abschnitt 1 zugeordnet? 


ua a FE EEE ET 


5 Werte wurden zugeordnet 


3. Sehen Sie sich einmal das Format des DATA-Statements näher an: 


40 DATA 10, 15, 7, 3.25, 11 
Hier steht kein Kommal Auch am Ende der DA 
TA-Zeile steht kein 
E. Komma. 
wischen den einzelnen Werten werden Kommas vorgesehen! 


DATA-Statements können ganze Zahlen, Zahlen mit Dezimalbruch- 


anteil, Zahlen in Gleitkomma- / 
halten. a-Darstellung oder negative Zahlen ent- 


DATA-Statements dürfen keine Vari i i 

riablen, arith i 
andere Funktionen oder Brüche enthalten. u un 
Zulässig ist: 90 DATA 3, 8, 2.5 
95 DATA 2+3, 1/4, 2/4, 2/4, 7*8 


Schreiben Sie ein DATA-Statement für die folgenden Werte: 


Nicht zulässig ist: 


342 
1256 


60 DATA 342, 1256, 205, 60.25, —412, 2.05E8 


R nn kann natürlich anders lauten. Denken Sie daran 
aß bei großen Zahlen, wie beispielsweise 1256 im obigen Beispiel, 


4. DATA-Statements kö shi i 
nat werden: Önnen an beliebiger Stelle im Programm ange- 


10 READ N 


10 DATA 
20 PRINTN 20 READ ne 
30 DATA 123 30 PRINTN 
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RUN 
123 


RUN 
123 


Kann das DATA-Statement so angeordnet werden, wie es das folgende 
Beispiel zeigt? .....--»se rer. 

10 READN 

20 DATA 123 

30 PRINTN 


5. Die folgenden DATA-Statements sind nicht in korrektem BASIC ge- 

schrieben. Bitte geben Sie jeweils an, was falsch ist. 

a) 20 DATA, 15,32, 85,66 .....so-er er eonensn ernennen nenne 

b) 30 DATA 22.3; 81.1; 66.66; 43.22 

a) Nach DATA darf kein Komma stehen! 

b) Im DATA-Statement müssen Kommas statt Semikolon verwendet 
werden. 


6. Das folgende Programm wandelt Zoll in Zentimeter um. Ein Zoll 
sind 2.54 cm. Wenn das Programm läuft, druckt der Computer den 
Wert in Zoll in eine Zeile und die entsprechende Angabe in Zenti- 
metern in die nächste. Tragen Sie bitte in der leeren Zeile das fehlende 
Statement ein. 


10 REM***UMWANDLUNG VON ZOLL IN ZENTIMETER 

nenn ne Hi BEE RE TEE AT Bienen Eis manga a wu ne 
30 PRINT 

40 PRINT "ZOLL =";Z 

50 PRINT “ZENTIMETER =";2.54*Z 

60 GOTO 20 

90 DATA 1,8 


RUN 


ZOLL=1 
ZENTIMETER = 2,54 


—— 


ZOLL =8 
ZENTIMETER = 20.32 
ERROR- 6 AT LINE 20 


20 READZ 


7. Schreiben Sie jetzt selbst ein Programm zur Umwandlung von Unzen 
in Gramm. Eine Unze sind 28.35 g, abgerundet auf zwei Dezimalstellen. 
Verwenden Sie ein DATA-Statement zur Aufnehme der Angaben in 
Unzen, die Sie in Gramm umgerechnet haben möchten. Hier sehen Sie, 
wie das Programm ablaufen sollte. 


RUN 


UNZEN = 1 
GRAMM = 28.35 


UNZEN = 13 
GRAMM = 368.55 
ERROR- 6 AT LINE 20 


Dh eek een 
US DECKE Sue TE Sc SER ZU Er Kae Bar ur Sur Yar or zer u Yar ur Ya yor 307 yoc 07 Var ur DR Bar var yEl ur Dur Dur var Jar Vor Dee Tor Be TE Dr ae a er er 
BEReE u 5 9 8,00 0,0 Eee: ae ee ee een ee ee ee 
Zee ae ee ee ae ehe ee ee ee 
ne naeh ee ee ee m 
Ben 0 ne ee aan ee ae ee ee ee ee 
ia ee ae ke“ 


10 REM***UMWANDLUNG VON UNZEN IN GRAMM 
20 READ U 

30 PRINT 

40 PRINT "UNZEN =" ; U 

50 PRINT “GRAMM = " : 28.35*U 

60 GOTO 20 

90 DATA 1, 13,16 


8. Schreiben Sie das Programm “ICH BIN DIE TEUERSTE ADDIER-— 
MASCHINE DER WELT” aus Kapitel 3, Abschnitt 45 unter Ver- 
wendung von READ- und DATA-Statements statt eines INPUT-State- 





ments so um, daß ein Lauf des Programms wie nachgolgend abgebildet 
aussieht. Sehen Sie sich den Lauf genau an, um die einzelnen Werte 
im DATA-Statement zu ermitteln. 


RUN 

x=12 

SUMME BIS JETZT 12 
xX=43 

SUMME BIS JETZT 55 
X=33 

SUMME BIS JETZT 83 
X=92 

SUMME BIS JETZT 180 

X = 76.25 

SUMME BIS JETZT 256.25 
ERROR- 6AT LINE 120 


ur rennen“ 
DE a Bar Bar Ba ar var Dar Bar Ba Dur Br Bar Br BEL Bar Bar Dur DE DL Du BL BEL Bu BE Br Br Br Er Br Er Zr) 
nern 
De ee rer 
Dane 
.o,n ne. 
Pe Er Er Er 
and Vereine ae 
Pa ae a er 
a ee re EEEIRLE WETTE TE BT re re 
.. . 
nr. 
Kerr 
Due ar a Er Be ee Er er ur 
De Er Er Er 
. rennen 
a ee ee 
re Treree 
ee re ne 
nur 
Par Ba Br Bar Ta a Tr Ba ar ur Bor Da BE Dr DuE Bor Bor BE BE Bo ar DE Dur Bu Bor Bor BE Br Kur BE Ber Br Br Br Zr 
u. re“ 


Kr 
ebene 
... . 


100 REM***DIE TEUERSTE ADDIERMASCHINE DER WELT 
110 LET T=0 

120 READ X 

130 LET T=T+X 

140 PRINT 'X=";X 

150 PRINT “SUMME BIS JETZT" ;T 

160 PRINT 

170 GOTO 120 

180 DATA 12,43, 33, 92, 76.25 


Ihre Zeilennummern können natürlich anders lauten. 
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9. Erinnern Sie sich noch an unser Programm zur Berechnung des 
Mittelwertes oder Durchschnitts einer Gruppe von Zahlen? Wenn nicht, 
sehen Sie sich noch einmal Abschnitt 12 in Kapitel 4 an. Nachfolgend 
finden Sie das Programm in einer umgeschriebenen Version, und zwar 
unter Verwendung von READ- und DATA-Statements. Wir haben 
außerdem mehrere Anmerkungszeilen (REM) vorgesehen, um zu 
erklären, was jeweils geschieht. 


100 REM***EIN FREUNDLICHES MITTELWERTPROGRAMM 

110 REM***INITIALISIERE T (FUER DIE SUMME) UND N (FUER 
DIE ANZAHL) 

120 T=0 :N=0 

130 REM***LESEN EINER ZAHL X. WENN ES SICH DABEI UM 

140 REM***DAS FLAG 1E97 HANDELT, SOLL DER DRUCK 

145 REM***ERFOLGEN. ANDERNFALLS SOLLTEN T UND X 
ERNEUERT WERDEN. 

150 READ X : IF X=1E97 THEN 180 

160 T=T+X : N=N+1 : GOTO 150 

170 REM***DRUCKE DIE ERGEBNISSE 

180 PRINT "N=";T 

200 PRINT “MITTELWERT ="; T/N 

900 REM***DATEN FOLGEN 

910 DATA 10,3,-9,—15,—23,—25,—30,1E97 4 — Das Flag! 


RUN 

N=7 

SUMME = —89 

MITTELWERT = —12.71428571 


Um dieses Programm mit einem anderen Datensatz laufen zu lassen, 
ersetzen Sie einfach Zeile 910 durch ein oder mehr DATA-Statements, 
welche die neuen Daten und das Flag 1E97 enthalten. Sie erinnern sich 
sicher noch daran, daß Sie nur die neuen Statements mit den alten 
Zeilennummern zu schreiben brauchen, wenn Sie ein Statement er- 
setzen möchten. Nehmen Sie an, wir wollen beispielsweise die folgen- 
den Daten verwenden: 63, 72, 50, 55, 75, 67, 59, 61 und 64. Schreiben 
Sie das zugehörige DATA-Statement. 

ER, anna nun a urn a a dann nen 
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910 DATA 63, 72, 50, 55, 75, 67,59, 61, 64, 1E97 (Haben Sie 
auch das Flag nicht vergessen?) 


10. Das folgende Programm veranlaßt den Computer, die Zahlen aus 
einem DATA-Statement zu lesen, jedoch nur diejenigen auszudrucken, 
die größer als Null, also positiv sind. Zahlen die kleiner oder gleich Null 
sind werden nicht gedruckt. 


10 READX 

20 IFX)OTHEN PRINT "X =";X 
30 GOTO 10 

40 DATA 3, 7,0, —2,5,—1,7,8,0, —3 


RUN 


MXXXXX 
u | 
oonaNnw 


e.) 


ROR- 6 AT LINE 10 


Anmerkung: 


Die Zahl 7 wird zweimal ausgedruckt, da sie auch zweimal im DATA- 
Statement vorkommt. 


Sehen Sie sich die Zahlen im DATA-Statement bitte genau an und 
beantworten Sie folgende Fragen: 


a) Für welche Zahlen ist die Bedingung XOWAHR? .....rreereee: 
b)Wozu veranlaßt Zeile 20 den Computer, wenn X ) O WAHR ist? 


a) 3,7,5,7,8 

b) die Mitteilung X= gefolgt vom Wert von X ausdrucken 

c) 0,-—2,-1,0,-3 

d) Nichts. Der PRINT-Teil von Zeile 20 wird nicht ausgeführt und 
der Computer geht weiter zur Zeile 30. 


11. Wie wird ein Lauf dieses Programms aussehen? 


10 READX 

20 IFX<(0O THEN PRINT "X =";X 
30 GOTO 10 

40 DATA 3,7,0,—2,5,—1,7,8,0,—3 
RUN 


. nee 
.. 
. nn nn“ 
De u 
. .. 
.. rer Tee 
.er Teen 
.n. 1. 7. ee 
Em 1 3002 
.. ren ne 
..0.. 
Vu re nenn Far ie 
Da rer 


ERROR— 6 AT LINE 10 ——  — Haben Sie daran gedacht? 


12. Vervollständigen Sie bitte das nachfol 
gende Programm r 
der angegebene Lauf ergibt. 9 so, daß sich 


10 READ X 

ee nn air Bee wire er 

FE ee ee re 
40 DATA 3,7,0,—2,5, —1,7,8,0,—3 

RUN 

X=0 

X=0 

ERROR— 6AT LINE 10 


Es werden zwei Nullen ausgedruckt, da sich im D : 
Nullen befinden. " im DATA-Statement zwei 


20 IF X=0 THEN PRINT "X ="; X 


>. Bitte vervollständigen Sie zur Übung die nachfolgenden Statements. 
alls möglich, probieren Sie jedes Statement auf Ihrem Computer aus. 


a) Vervollständigen Sie die Zeile 20 so, daß nur von Null verschiedene 
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Zahlen gedruckt werden. 20F ; ws THEN PRINT "X =";X 
b) Vervollständigen Sie Zeile 20 so, daß der Computer nur Zahlen aus- 
druckt, die größer oder gleich Null sind. 
Z0IF oerenaı 1 ai THEN PRINT "X =";,X 
c) Vervollständigen Sie Zeile 20 so, daß der Computer Zahlen ausdruckt, 
die kleiner oder gleich3sind.. 20IF .. THEN PRINT "X =";X 
a) X ()O (Der Computer druckt: 3,7, —2, 5, —1,7,8 und 3.) 
b)X)=0 (Der Computer druckt: 3,7,0,5,7,8 und 0.) 
c) X (= 3 (Der Computer druckt: 3,0, —2,—1,) und —3.) 


14. In BASIC dürfen auf eine READ-Instruktion mehr als eine Variable 
folgen. Nachfolgend finden Sie ein Beispiel. Verwenden Sie Kommas, 
um die Variablen zu trennen. 


10 READ X,Y. 


Hier steht auch kein Komma 
Komma 


Hier steht kein Komma 


Dieses Statement veranlaßt den Computer, zwei Werte aus dem DATA- 
Statement zu entnehmen und sie in der entsprechenden Reihenfolge 
den beiden READ-Variablen zuzuordnen. 


Vervollständigen Sie bitte den Lauf des folgenden Programms: 


10 READ X,Y 

20 PRINT X,Y 

30 GOTO 10 

40 DATA 10, 20, 30, 40 


RUN 


a ee 


Beim zweiten Schleifendurchlauf wurden X und Y diese Werte zuge- 
wiesen und in Zeile 20 ausgedruckt. (Die Abstände zwischen den 
einzelnen Zahlen werden wir später besprechen). 


15. Füllen Sie bitte die freien Stellen im Programm ; 
ra 
Programms aus. g und im Lauf des 


a aa ana aa a er 

a 1 0 E33 Bann Erin nn a anna ann un 
30 GOTO 10 

40 DATA 3,5,6,4,7,9 


RUN 


... ...........C..e 


Dr ee 


10 READ A,B 


RUN 
8 

10 
16 


16. Sie können in einem Programm mehr als ei 
ein READ-Statement 
vorsehen. Alle READ-Statements weisen ihren Variablen die Werte 
jedoch aus dem gleichen DATA-Statement zu. Ein Wert. aus einem 
De wird einer READ-Variablen in der Reihenfolge 
eordnet, in der der Computer beim Ablauf des Pr 
ein READ-Statement trifft. a 


10 READP 
20 READQ 
30 PRINT P 
40 PRINTQ 
50 GOTO 10 
60 DATA 3, 5,6,4,7,9 
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Der erste Wert wird P, der zweite Q zugeordnet. 


RUN 
a 
5 

Zweiter Schleifendurchlauf: der dritte Wert wird 
4 | P, der vierte Q zugewiesen. 
7 
9 
ERROR- 6 AT LINE 


Welcher Wert wird P im dritten Schleifendurchlauf zugewiesen? .....- 
Welcher Wert wird Q zugewiesen? .....-ceeeereneeennnn nennt 


17. Schreiben Sie ein Programm, das drei READ-Statements verwendet, 
um drei verschiedenen READ-Variablen X, Y und Z Werte zuweist; 
dann die Summe von X, Y und Z ausdruckt; dann zurückspringt und 
den Prozeß wiederholt, bis alle Daten verbraucht sind. 


Schreiben Sie auf, was der Computer ausdruckt, wenn Ihr Programm 
läuft. Hier sind die Daten für das DATA-Statement: 3, 5, 6, 4, 7,9, 2; 


aa sr une FORT TER RT Rare a RIM ET 
sage RREIRTT Fe manage 8 VOR 84 VDE tET man are ma EUR 
arena 5 WIRST EA Sue N are an are A TE Te RT 
ss a ae EB Er aan die een a NEBEN BEST 
a 2 ee ara rare ie re STIER EEE Mr Ola ee STR 


en na sie Ba he un oe ee ET 


10 READX 

20 READY 

30 READZ 

40 PRINTX+Y+tZ 

50 GOTO 10 

60 DATA 3,5,6,4,7,9,2,5,2 


RUN 
14 
20 
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9 
ERROR— 6 AT LINE 10 


18. Die folgende Frage haben wir 50 Personen gestellt: 
VERSTEHT SIE IHR COMPUTER? 
1.JA 
2. NEIN 


E der 50 ‚Antworten lautete entweder 1 (JA) oder 2 (NEIN). Die 
ntworten sind in den nachfolgenden 5 DATA-Statements zu sahen. 


Auf die letzt ; TIEREN 
a e Antwort folgt —1. Dieses Flag signalisiert das Ende der 


900 REM***DATEN* 1 = = = 

re ae 2 = NEIN, —1 = ENDE DER DATEN 
920 DATA 2,1,1,1,2,1,2,2,2,1 

930 DATA 2,2,2,1,2,1,2,2,1,2 

940 DATA 1,1,1,1,2,1,2,2,1,1 

950 DATA 2,2,2,2,1,1,1,2,1,2,—1 


„er e. 
... 1... 1 1. 1.2... Tr Tr... 


.. 0 0 0 0 0 RETTET TE 0 —e 


Ben Sie die Anzahl der Antworten, die JA’ lauteten in das mit 
gekennzeichnete Feld, die Anzahl der “NEINs“ in das mit “N” 
kennzeichnete Feld. ai 


19. Hier sehen Sie ein Programm, das di 

‚ das die Antworten aus d - 
Statements liest und die Anzahl der “JA’ und “NEIN” es 
Variable J wird zum Zählen der ”JA“-Stimmen, die Variable N: zur 
Zahlen der “NEIN’-Stimmen verwendet. 


n REM”""BEFRAGUNGS-ANALYSEPROG RAMM 
0 REM***INITIALISIERUNG: SETZE ALLE ZAEHLVARIABLEN 
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AUF NULL 
120 J=0 : N=0 
200 REM***LIES UND ZAEHLE DIE ANTWORTEN 
210 READA: IF A=- 1THEN 410 
220 IF A=1 THEN LET J=J+1 : GOTO 210 
230 IF A=2 THEN LET N=N+1 : GOTO 210 
400 REM***DRUCKE DIE ERGEBNISSE AUS 
410 PRINT 
420 PRINT “JA: ;J R 
430 PRINT “NEIN:” ; 
900 REM***DATA* 1=JA, 2=NEIN, —-1=ENDE DER DATEN 
910 DATA 1222.12.12.12 
920 DATA 2,1,1,1,2,1,2,2,2,1 
930 DATA 2,2 .2,1,2,1,2,2,1,2 
940 DATA 1,1,1,1,2,1,2,2,1,1 
950 DATA 2,2,2,2,1,1,1,2,1,2,—1 
RUN 
JA: 23 
NEIN: 27 


a) Welcher Abschnitt des Programms bildet eine Schleife, die re 
Wert in den DATA-Statements durchlaufen wird? Zeilen u 2 no 
b) Welches Statement liest einen Wert und legt ihn in ‘“Schac 


. or nee“ 

ae ne er ee 
PERF Er a DL Er Bor mL ur Br ur JE Zr 

oo 1m ee. 


b) Zeile 210 
d) Zeile 230 


a) Zeilen 210 bis 230 
c) Zeile 220 


ie sich jetzt die folgende Befragung an: 
ee ME ASTEHT SIE IHR COMPUTER? 
1.JA 
2. NEIN 
3. MANCHMAL 
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Modifizieren Sie das Programm in Abschnitt 19 so, daß der Computer 
die Ja-, Nein- und Manchmal-Stimmen zählt. Verwenden Sie die 
Variable J um die Ja-Stimmen zu zählen. Für die Nein-Stimmen ver- 
wenden Sie bitte N und für die Manchmal-Stimmen den Buchstaben 
M. Benutzt werden sollen die folgenden Daten. 


2,132,33.1332,12.121133—1 


Unter Verwendung dieser Daten sollen die folgenden Ergebnisse beim 
Lauf des Programms ausgedruckt werden: 


JA: 6 
NEIN: 5 
MANCHMAL: 7 


Bene BR wie Bee ar re ee ee ee 
Bea an Are iarsane Jar Br EEE Le re ee ei lee ee 5 
BR ER ac ae ae a ee ar re ee Bea ee ee a 
ee ie BR a ie re ee ri ee a MAG RE Buermeie die ie 
Be en ne a EEE er ee ee ee see ee 


Hier sind unsere Änderungen: 

120 J=0 : N=0 : M=0 

240 IF A=3 THEN LET M=M+1 : GOTO 210 
440 PRINT MANCHMAL: ”; M 


900 REM***DATA: 1=JA, 2=NEIN, 3=MANCHMAL, —1=ENDE 
DER DATEN 


910 DATA 2,1,3,2,3,3,1,3,3,2,1,2,1,2,1,1,3,3,—1 
920 


Wir haben die Zeilen 920, 930, 940 und 950 aus dem Programm ent- 
fernt. Wenn sich das Programm im Computer befindet, läßt sich dies 


sehr einfach durchführen, indem man die Zeilennummer schreibt und 
auf RETURN drückt. 


21.In Kapitel 2 verwendeten wir PRINT-Statements in der folgenden 
Form: 
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PRINT e 
worin e ein numerischer Ausdruck ist. 


Beispielsweise: 
PRINT7+5 


—— 


numerischer Ausdruck 


i i Computer auf, den 
Ein PRINT-Statement dieser Form fordert den 
numerischen Ausdruck zu berechnen und das Ergebnis auszudrucken. 


Das folgende PRINT-Statement weist den Computer an, gleich vier 
numerische Ausdrücke zu berechnen und die vier Ergebnisse auszu- 


drucken. 


Wir schreiben: PRINT 7+5, 7-5, 7*5, 7/5 


Der Computer schreibt: 1 2 3514 


Zeichnen Sie im obigen Beispiel Pfeile ein, die jeden numerischen Aus- 
druck mit seinem berechneten und ausgedruckten Wert verbinden. Wir 
haben bereits den ersten Pfeil eingezeichnet, der den Ausdruck 7+5 
mit dem Ergebnis “12” verbindet. 


PRINT 7+5,7-5,7*5, g 


12 2° 35 14 


22.Wenn ein PRINT-Statement mehr als einen Ausdruck enthält, 
werden die einzelnen Ausdrücke durch Kommas getrennt. 


PRINT 7+5, 7-5, 7*5, 7/5 
Komma Komma Komma 


Das folgende PRINT-Statement weist den Computer an, die Werte von 
2+3, 2-2, 2*3 und 2/3 zu berechnen und auszudrucken. Wir haben 
jedoch vergessen, Kommas vorzusehen. Bitte fügen Sie sie in der für 
BASIC korrekten Weise ein. 
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PRINT 2+3 2-2 2*3 2/3 


Print 2+3, 2-3, 2*3, 2/3 


Anmerkung: 


Auf PRINT und 2/3 folgen keine Kommas. Ein Komma hinter PRINT 
verursacht eine Fehlermeldung. Ein Komma hinter 2/3, am Ende des 
PRINT-Statements hat einen speziellen Zweck, den wir später noch 
kennenlernen werden. 


23. Füllen Sie bitte in den folgenden Zeilen die freien Stellen aus. 
(Denken Sie daran, daß Sie bei direkten Statements keine Zeilen- 
nummern benötigen und nur auf RETURN drücken müssen, um den 
Computer zu veranlassen, das Statement auszuführen.) 


Wir schreiben: 
Der Computer schreibt: 


PRINT 3°3,6°8,7”7 


die Ei era he ee ae 


Wir schreiben: 
Der Computer schreibt: 


ne eye naeh 


24. Jetzt sind Sie an der Reihe. Wir wollen uns noch einmal mit den 
bereits bekannten drei Fahrrädern mit Reifendurchmessern von 20, 24 
und 26 Zoll beschäftigen. Wir wollten seinerzeit feststellen, wie groß 
der Umfang jedes Reifens ist, oder anders gesagt, welche Strecke das 
Rad mit einer Umdrehung zurücklegt. Dazu müssen die folgenden drei 
Ausdrücke berechnet werden: 


20-Zoll-Reifen 3.14*20 (erster Ausdruck) 
24-Zoll-Reifen 3.14*24 (zweiter Ausdruck) 
26-Zoll-Reifen 3.14*26 (dritter Ausdruck) 


Schreiben Sie ein PRINT-Statement, das den Computer anweist, die 
drei Ausdrücke zu berechnen und die Ergebnisse auszudrucken. 
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Se schralbäe enn  a nnenn n E 
Der Computer gibt aus: 628 75.36 81.64 


PRINT 3.14*20, 3.14*24, 3.14*26 


25. In ATARI-BASIC sind vier Standard-PRINT-Positionen vorgesehen. 
Ein Komma in einem PRINT-Statement veranlaßt den Cursor, zur 
nächsten verfügbaren Standard-Position weiterzugehen. Sehen Sie sich 
das Beispiel an und füllen Sie die leeren Stellen aus. 


Wir schreiben: PRINT 1,2, 3,4 


Der Computer: 1 2 3 4 


Positon 1 Position 2 Position.. Position.. 


26. Positive Zahlen und Null werden ohne Vorzeichen ausgedruckt. 
Bitte sehen Sie sich an, was geschieht, wenn negative Zahlen gedruckt 
werden sollen. 


Wir schreiben: PRINT -1, 2,3, —4 
Der Computer: —1 —2 —3 —4 


N 


Position 1 Postition 3 Position 4 


Position 2 
Wie unterscheidet sich der Ausdruck negativer Zahlen von den positiven 
FETTE RE TR mann re N RETTET 


27.Was geschieht, wenn in einem PRINT-Statement mehr als vier aus- 
zudruckenden Zahlen oder Zeichen enthalten sind? Sehen Sie sich am 
folgenden Beispiel an, wie der Computer in diesem Fall vorgeht. 


Wir schreiben: PRINT 1,2,3,4, 5,6,7 
Der Computer: 1 2 3 4 
5 6 7 
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Beschreiben Sie, was geschehen ist: .....:«.+rereeeeeenenn nenne 


Der Computer druckte die 7 Zahlen in zwei Zeilen, und zwar vier 
Zahlen in die erste, die restlichen drei Zahlen in die zweite Zeile. 


28. Bitte Schreiben Sie auf, wie der Computer, gemäß den Regeln für 
Kommas innerhalb von PRINT-Statements, die folgende Anweisung 
ausführen wird. 


Wir schreiben: PRINT 1,2,3,4,5,6,7,8,9,10 
Der Computer: 


ae aaa rn ee de ee hai ee 


29. Statt Kommas können wir zwischen zwei Zahlen auch jeweils ein 
Semikolon setzen. Sehen Sie sich einmal an, was dann geschieht: 


Wir schreiben: PRINT -1;-2;-3;-4;-5;-6;—7 
Der Computer: —1-2-3-4-5-6—7 


Wir schreiben: PRINT1 22;3;4;5 
Der Computer: 12345 


Die Verwendung von Semikolons führt also dazu, daß die einzelenen 
Ziffern direkt, ohne Zwischenräume, aneiandergehängt werden. 
Kommas dagegen weisen den Computer an, die vorbestimmten Druck- 
Positionen zu verwenden. Um also beispielsweise Ergebnisse dicht 
aneinander auszudrucken, müssen Sie .......-.sesr ee... verwenden. 


Semikolons 


30.Der Bildschirm kann in jeder Zeile 38 Zeichen aufnehmen. Das 
heißt, er verfügt über 38 Zeichen-Positionen, die von 0 am linken bis 
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37 am rechten Rand durchnumeriert sind, Vervollständigen Sie bitte 
das folgende Diagramm der Zeichenpositionen auf dem Bildschirm. 


1111111111222222222233333333 
012345678901 2345678901 2345678901234567 


Zeichen-Pos. 7 Zeichen-Pos. 20 Zeichen-Pos... Zeichen-Pos. .. 


31. Die vier Standard-Druck-Positionen beginnen bei der Zeichen- 
Position 0. Wir haben die Druckpositionen 1 und 2 markiert. Kreisen 
Sie bitte im folgenden Diagramm die Positionen 3 und 4 ein. 


1111111111222222222233333333 
N 2345678901 23456789012345678901 234567 


Druck- 
Position 2 


Druck- 
Position 1 


1111111111292222222338333333 
0123456789012345678901 234567890]1 234567 


N 


Druck- Druck- Druck- Druck- 
Pos. 1 Pos. 2 Pos. 3 Pos. 4 
Anmerkung: 


Eine Standard-Druck-Position umfaßt 10 Zeichen-Positionen. Beispiels- 
weise belegt die Druck-Position 1 die Zeichen-Positionen O bis 9, ins- 
gesamt also 10 Plätze. Die Druck-Position 2 belegt die Zeichen- 
Positionen 10 bis 19 usw. 


32. Sehen Sie sich jetzt an, was geschieht, wenn wir das Komma am 
Ende eines PRINT-Statements hinschreiben. 


10 LET N=1 
20 PRINT N, # Komma 


30 LET N=N+1 


40 GOTO 20 

RUN 

1 2 3 4 
5 6 7 8 
9 10 11 


STOPPED AT LINE 20 


An dieser Stelle haben wir auf die Taste BREAK gedrückt, um den Lauf 
zu beenden. 


Bitte erinnern Sie sich daran, was das Komma bewirkt: es weist den 
Computer an, zur nächsten Standard-Druck-Position weiterzugehen. 
Er springt daher, nach dem Drucken der Zahl 1, zur Druckposition 2; 
nach dem Ausdrucken der Zahl 2 geht er weiter zur Druck-Position 3 
usw. Nachdem auch die Position 4 belegt wurde, springt er zur nächsten 
Zeile und druckt dort weiter. 


Geben Sie für die ersten 7 Zahlen des folgenden Programms an, wohin 
sie gedruckt werden. 


10 LET N=1 
20 PRINTN, 
30 LET N=N+2 
40 GOTO 20 


RUN 


33.Was wird Ihrer Ansicht nach geschehen, wenn wir am Ende eines 
PRINT-Statements ein Semikolon vorsehen? Probieren wir es doch 
einfach einmal aus! 


10 LET N=1 
20 PRINT N; 
30 LET N=N+1 
40 GOTO 20 
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RUN 
1234567890111213141516171819 
STOPPED AT LINE 20 Hier haben wir die Taste BREAK gedruckt 


Schreiben Sie jetzt Zeile 20 so um, das der Computer hinter jeder 
gedruckten Zahl einen Zwischenraum vorsieht. 


2 PRINT u una ur a 9 a aaa Hi Ka 


20 PRINTN;” "; (Sehen Sie zwischen den Anführungszeichen 
eine Leerstelle vor.) 


Wenn Sie vor jeder, Zahl eine Leerstelle wünschen, verfahren Sie bitte 
folgendermaßen: 


20 PRINT " ‘';N; 


Die Leerstelle innerhalb der Anführungszeichen steht jetzt vor der Zahl 
(N). 


34. Bisher haben wir uns nur damit befaßt, was geschieht, wenn Zahlen 
innerhalb eines PRINT-Statements durch Kommas oder Semikolons 


getrennt werden. 
Jetzt wollen wir es einmal mit Strings versuchen. 


PRINT N “B", “GH, ua; 5 ba 
A B C D 


Druck-Pos. 1 Druck-Pos. 2 Druck-Pos. 3 Druck-Pos. 4 


Jetzt sind Sie an der Reihe. Vervollständigen Sie die Ausgabe für das 
folgende Statement, so wie es der Computer tun würde. 


PRINT Ar, Br "Cr, BD, "Br; "G' 
ne ee eek ee ae ee nee ae 


a ————. 


Wie bei Zahlen veranlaßt ein Komma auch bei Strings den Computer 
dazu, zur jeweils nächsten Standard-Druck-Position vorzurücken. 


35. Die Verwendung von Kommas zur Vorgabe der Druck-Position ist 
beispielsweise zum Drucken von Überschriften sehr nützlich, Das soll 
am Beispiel des abgeänderten Programms zum Umrechnen von Zoll in 
Zentimeter aus Abschnitt 6 demonstriert werden, 


10 REM***UMRECHNUNGSTABELLE ZOLL IN ZENTIMETER 
20 PRINT "ZOLL”, “ZENTIMETER” 


30 READ I 

40 PRINT 1,2.54*1 

50 GOTO 30 

90 DATA 1,8,12 

RUN 

ZOLL ZENTIMETER 
1 2.54 

8 20.32 

12 30.48 


ERROR-— 6 IN 30 


Beachten Sie die Verwendung der Kommas in den Zeilen 20 und 40. 
Die vom Statement in Zeile 40 ausgedruckten Werte werden dadurch 
exakt unter den von Zeile 20 gedruckten Spaltenüberschriften ange- 
ordnet. 


Jetzt sind Sie an der Reihe. Ändern Sie das Programm zur Umwandlung 
von Unzen in Gramm (Abschnitt 7) so ab, daß der Lauf aussieht, wie 
nachtolgend abgebildet. 


RUN 
UNZEN GRAMM 
1 28.35 

13 368.55 
16 453.6 


ERROR- 6 AT LINE 30 


ern Wr I een nn 
a RER it namen aan a En ia ag 
9 an nn En a a a EEE nen 


ng ee u Bin an ra a TEE a 


u nee ee ee ee ee ee er We is Mn 
Baar ae ara a ee ER ER een Be ARE DR RE 


10 REM***UMWANDLUNGSTABELLE UNZEN IN GRAMM 
20 PRINT “UNZEN“, “GRAMM” 

30 READZ 

40 PRINT Z,28.35*Z 

50 GOTO 30 

90 DATA 1,13,16 


38. Sehen wir uns jetzt einmal an, was geschieht, wenn wir in einem 
String Semikolons verwenden. 


PRINT RS "B’'; ul Se u 5 hir „"E' 
ABCDE 


Das Semikolon führt dazu, daß alle Strings, ohne Zwischenraum, 


aneinander gedruckt werden. 
Geben Sie an, was geschieht, wenn der Computer das folgende PRINT- 


Statement ausführt. 
PRINT “DAS”; “IST”; “COMPUTER'; "PROGRAMMIERUNG?” 


DASISTCOMPUTERPROGRAMMIERUNG? 


39. Die Ausgabe in Abschnitt 38 ist sehr unübersichtlich und schwer 
zu lesen. wenn Sie zwischen den einzelenen Strings Leerschritte haben 
möchten, müssen Sie sie an den gewünschten Stellen vorsehen. Z.B: 


PRINT “DAS “;”IST "COMPUTER “;“PROGRAMMIERUNG?” 


Wie wird der Computer diese Zeile ausdrucken? 


DAS IST COMPUTER PROGRAMMIERUNG? 


40. Jetzt wollen wir einmal ein Programm ausprobieren, das den Aus- 
druck von Strings bewirkt, die String-Variablen zugewiesen wurden. 


172 


5 DIM A%(20),B$(20),C$(20) 
10 LET A3="'COMPUTER “ 
20 LET B$="SIND” 
30 LET C$=" INTERESSANT.” 
40 PRINT AS$;B$;C$ 
50 PRINT A$,B8,C$ 


In Zeile 5 wird in der uns schon bekannten Weise Speicherplatz für die 
drei Strings reserviert. Achten Sie bitte auch auf die Leerschritte inner- 
halb der Anführungszeichen in den Zeilen 10 und 30. 


Schreiben Sie jezt auf, was der Com ; 
i ! puter drucken wird 
obige Programm läuft: ‚ wenn das 


RUN 


uU WO c yur ar ur vr ar rer Er rer 
ea RE I 
..0o 100er nene 
Dr Br Er rue 
Dec Dur Ber er ee er 
Tr Trr[rer nee 
rn EEE RL ee aaa 
De Br er 


COMPUTER SIND INTERESSANT 
COMPUTER SIND ET 


Pos. 2 0s. 3 


41.Sie haben sich wahrscheinlich schon selbst gedacht, daß auch ein 
READ-Statement dazu verwendet werden kann, um String-Variablen 
Strings zuzuweisen,. Schreiben Sie bitte hin, wie Sie sich den RUN für 
das folgende Programm vorstellen, das die Namen der Mitglieder des 
Computer-Clubs ausdruckt. 


5 DIM M$(20) 
10 READ M$ 
20 PRINT M$ 
30 GOTO 10 
40 DATA JERRY, BOBBY, MARY 
50 DATA MIMI, KARL 


RUN 


er... 
.eo 112000. 
.e 00 rn. 


CO TSOCHEC HE TE Yar Fr Jr rer er 
[ale Zu or zur Yar yir Uur Dir Tor We 
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...r 
oe, eer.. 
. en nenne 
oo... 
a... 
sone“ 
....... 
.. on... 
.o.e. 
on e0n0" 
........ 
m. ..n.. 
.... 
ar RE“ 
.o 0... 
on nee. 


KARL 
ERROR- 6 AT LINE 10 


So wie bisher könnten wir noch eine ganze Zeit ig eree n 
i ir kennenlernen müssen. Da 

aber noch vieles andere, was wir ü a 
; i tieren Sie selbst mit Ihrem Comp 

guten Rat: Experimen dere 

ie kö mit langen und mi 

sooft Sie können. Versuchen Sie es ngen ı an 
i ispi i ein String länger als ei 

Was geschieht beispielsweise, wenn € 

lschen Sie Strings und Zahlen oder Probieren Sie es mit Leerraumen 


am Anfang und am Ende. 


Jetzt sollen Sie schon wieder ein Programm ug ee 
i i i Würfel benutzt. 
bei den verschiedensten Spielen einen on. 
i bisheriges BASIC-Wissen dazu verw A 
gern, daß Sie Ihr ganzes ] c a 
i ollenden Würfel imitiert. 
Programm zu schreiben, das einen ro N 
ie ei enen Programms. sehen oI 
stehend sehen Sie einen Lauf unseres eigenen an 
i Sie es als Anleitung zum Schrei 
sich genau an und benutzten ee 
ähnli das nachfolgende Beispiel a 
Programms, dessen Lauf ähnlich wie d a ee 
i - Positionen. Nehmen Sie sich genug 
Verwenden Sie Standard Druck Posi nen 
Zeit und probieren Sie Ihre Lösung möglichst erst auf dem Computer 
aus, bevor Sie sich unser Programm ansehen. 


RUN 
WIEVIELE WUERFE? 7 
EINS DREI DREI SECHS 
VIER FUENF ZWEI 
WIEVIELE WUERFE? 2 
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EINS SECHS 
WIEVIELE WUERFE? usw. 


BB. ne See een ie ie ae ee ne ante ae ee ee 
Bar a ae a er ee ee ee 
u er ae ee are nee ee ee euer ee ee ai 
we een ae ee, see ee 
Nee een 
BR ET Te ee Teen 
nn... ......n. meer 
“rn. nr... 1.10.11. n 1 re eeeee ee“ 

Bee nn. Eee en hen ee ee erteeeee 

Be. 0 ee ee ee ee ee ee ee 

CHEN Zu Dur Jar u Ser Par DE Dur Bur ur Dur Jar Zur Hr DEE SE Dur Kar Her Sur Sur Ber Jar ur yar yor Hor Soc vor var Bar Vor yar Tr Ser ur ar Baar Ser or Re Ra 

em 6. euere une area ee ae es 

wer nr re ee een“ 


BTL Be ee we ee ee ie ee nee ae ee 


Sehen Sie sich die Lösung erst an, wenn Sie Ihr eigenes Programm | 
geschrieben haben. 


100 REM***WUERFEL-SIMULATION | 
110 PRINT : PRINT “WIEVIELE WUERFE“'; :INPUT R | 
120 K=1 : PRINT | 
200 REM***'ROLLE DEN WUERFEL’R MAL 

210 S=INT(6*RND(1))+1 

220 ON S GOTO 230,240 ,250 ,260,270,280 

230 PRINT EINS“, : GOTO 290 

240 PRINT ZWEI”, : GOTO 290 

250 PRINT DREI”, : GOTO 290 

260 PRINT “VIER”, : GOTO 290 

270 PRINT “FUENF”, : GOTO 290 

280 PRINT “SECHS”, 

290 IFK{RTHEN LET K=K+1 : GOTO 210 

300 PRINT : GOTO 110 

Warum sind in Zeile 300 zwei PRINT-Statements vorgesehen? Ver- | 
suchen Sie es einmal mit einem! 
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EIGENTEST 


Arbeiten Sie bitte den folgenden Eigentest durch. Er wird Ihnen zeigen, 


wieviel Sie bis jetzt gelernt haben. 


1. Nehmen wir einmal an, Sie sind der Computer. Vervollständigen Sie 
bitte den Lauf bei den nachfolgenden Programmen: 


a) 10 READA b) 10 READ A 
20 PRINT A 20 READ B a 
30 DATA 27 30 PRINT A- 
40 DATA 27,15 
RUN RUN 


re DR ie 


d) 10 READ A,B 


c) 10 READ A,B 


20 PRINT A-B 20 PRINT A-B 

30 DATA 27,15 30 DATA 27 
40 DATA 15 
RUN 


ee ee re 


2, Schreiben Sie den Lauf der folgenden Programme auf: 
a In dee: Komma am Ende des PRINT-Statements 
30 GOTO 10 
40 DATA 3 ,7,0,-2,5,-1,7,8,0,—3 
RUN 


axe 5/6 Senats 
1 u er ee 
Pr er ur er Du eo 


b) 10 READ X 
20 PRINT X” "; 
30 GOTO 10 
40 DATA 3,7,0,-2,5,-1,7,8,0,—3 


4 — Semikolon am Ende des PRINT-Statements 


.. 
Par EB Ye 
.o| |... 
Ei er 
Earl wie 
are re EEE ER 
or. 
.uo.n.« 
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3. Vervollständigen Sie den Lauf der folgenden Programme: 
a) 10 READ X 
20 IFX)=OTHEN PRINT "X =" ;,X, #— Komma 
30 GOTO 10 
40 DATA 3,7,0,—2,5,—1,7,8,0,-3 
RUN 


ea il DERun 2 Bed ra ma EEE rer a are 


een Er Rare EEE EN DE ie ee er ne a Dana he Fu 


b) 10READ X 
20 IFX)=OTHEN PRINT "X =", X; —— Semikolon 
30 GOTO 10 
40 DATA 3,7,0,—2,5,—1,7,8,0,--3 
RUN 


ERDE RER RT RE er ae HE Fi era nne 


--...n anne ie er Be re in are De een 


4.Schreiben Sie bitte auf, wie der Lauf des folgenden Programms 
aussieht: 


420 PRINT “ANTWORT”, “ANZ. DER“ “PROZENT” 
430 PRINT "(J/N)”,"ANTWORTEN” 
RUN 


EN FIEIEH Fand ae ea EEE 


Von Fa au ee 


5.Modifizieren Sie das Befragungs-Analyse-Programm von Abschnitt 
19 so, daß die Ergebnisse wie folgt ausgedruckt werden: 


ANTWORT ANZ. DER PROZENT 
(J/N) ANTWORTEN 

JA 23 46 

NEIN 27 54 
SUMME 50 100 
Hinweis: 


Schreiben Sie das Programm um, beginnend mit Zeile 420. Die ge- 
wünschte Information wird in drei Spalten ausgedruckt, wodurch 
die drei ersten Standard-Druck-Positionen belegt werden. 


Baer EEE ER ENTE re Be a ET EDER Fr RE rn a ee 
eier ve ER BEE TEE ee ne Bienen nn Tre Ei nei 
een ae ei ie Eu ER ER WEITE Be et ET 


NPFIETRNM NR BE Be ie BE Än.E Be RE Dr BE RT re re Bar er 


korrekten Anzahl stoppen. Hier sehen Sie jetzt zwei Läufe unseres 


.... 
. nr 
ae an a ee 

so. 


RE ae Programms: 

an an nes u an DE KERLE A ERRNEE RUN 
u aa ae 

6.Schreiben Sie, unter Verwendung von READ- und DATA-State- WIEVIELE WUERFE? 20 

"ments ein Programm, um die bei einer Umdrehung von Fahrrad- WWZZWZZZZWZWZZW Wwz2z 
reifen mit verschiedenen Durchmessern zurückgelegten Strecken zu zZ 
berechnen. Verwenden Sie das folgende DATA-Statement mit einer 8 
Zeilennummer nach Ihrer Wahl. 
DATA 16 20,24,26,27 = ————Reifen-Durchmesser WIEVIELE WUERFE? 100 

: 2. le Lauf unseres Programms: WZZZWZWZWWWWZZWWZW2Z 

Nachfolgend finden Sie einen Lau ELSNEU EEE Runen nen > 
uni WWWwWZWZWWZZZZWZWWZW 
RADDURCHMESSER: 16 WZWZZWWZZZZWZZWZZWZ 
RADUMFANG: 50.24 WWZWZZWWWZWZWWZZWZW 
RADDURCHMESSER: 20 WZWWz 
RADUMFANG: 628 nennen ll. 
en De nn RB 
RADUMFANG: 75.36 


RADDURCHMESSER: 26 
RADUMFANG: 81.64 


er nn ER Brarerenareie Ei Re euer ae se ae 


nme ne Miami re BE are ne nei 


RADDURCHMESSER: 77 OO NND IN nn 

RADUMFANG:ETB 2 ÄM 

ERROR- 6ATLINE .. (Zeilennummer Ihres READ-Statements) Ü rrrereneeeenne rennen ern nnnnnnenen ee rneneennrenn 
a ua u een Birch dein 
uranhiene 3 WRITE Kae Aal ee ne Be Ei ist, man übergibt: ar ‚Einkapıner diese en 
ae FR Warst IE TR Free SR em re Kiei BE Bas GE Progtanmmias Aimeni 7 In a a 
a er Wr Kor 5 ee ee ee ee re Enden. Sie.die: Varkahlo Worum Zählen dar aRsHT ac ke 
ER 34 te Are ee re een era ee NEE tie Vartkole Z zum Zähläis.der Anzahl dar "Zahlart Ei n 
a na a a RE Be er ar ie ätfleierian Krone niimamns outer: 

7.Schreiben Sie ein Programm, mit dem das Werfen einer Münze simu- RUN 
liert werden kann. Das Programm sollte den Computer dazu veran- WIEVIELE WUERFE? 20 


lassen, folgende Schritte auszuführen: W für “Wappen” und Z für Em eRE WERE REN ER 5 
“Zahl‘” über den ganzen Bildschirm ausdrucken, ai es der we ® 

ießende Lauf zeigt; außerdem fragen, wieviele Würfe gewünsc 
len, den Anzahl ausführen und schließlich beim Erreichen der 11 MAL WAPPEN UND 9 MAL ZAHL 
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9. Schreiben Sie ein Programm 


ernennen a ET ER PR en re a ET 


. aan a wa ne A a en er ar ET 


na ER En wa a ne BEREIT 
na ni nen 1 RAR aa nr nn a Dale ER RTE e e 
a er Ba a nn en RE FERET A HR ma wa a nr DR BETT 
ne DEE a ana re a RETTEN na Tr er NIE 
a an kann a na rue me RE ET 
sa 0 Ki ne er een or NER DI Fun a rar en RR ET 
a ren BE ER ra a a rn EEE ERRETT DT SR a VERTERR EF 
2 ai ara a ae a BE REN a am ran rn TEN EFT 


ea een a nn re ET Fe an TR ET 


zum Zählen der Daten in allen DATA- 
Statements eines Programms. Zählen Sie aber das Flag nicht mit! 
Wenn sich beispielsweise die folgenden DATA-Statements im Pro- 
gramm befinden, sollte uns der Computer mitteilen, daß insgesamt 


25 Zahlen vorhanden sind. 


150 DATA 2,3,5,7,11,13,17,19,23,29,31 ‚37,41 
160 DATA 43,47 53,59,61 ,67,71 13,19,83,89,97,1E97 


Ein Lauf unseres Programms sieht so aus: 


RUN 
ES SIND 25 DATEN VORHANDEN 


a a an ee ET ame a re I EEE FERN 
20 Klar ae ru ec ar rn me mn me ET 
ra ana AIR EEE a rare ua anregen IE EN FT TWIN Ara raten Kin TORE 
nen re or N DR A ea a a RR ET 
x er Da re nee rn TE FE NETTE a me mr A LEE 
a nu FR TE nn ser warn ER BRETT FR TERN PER Be ER 
ee a a aa ee RE a en en RER ET FT 


a 5 af a ee er ent TREON FR EN Tre ann A RNENN 


10. Schreiben Sie bitte ein Programm, das ein Muster von Sternen (*) 


180 


ausdruckt, und zwar nach einem Plan, der in Form von Werten für 
ein DATA-Statement eingegeben wurde. Verwenden Sie ein Flag am 
Ende der Daten, um eine Fehlermeldung zu vermeiden. Anschließend 


sehen Sie die DATA-Statement-Werte und das von unserem Pro- 
amm erzeugte Muster. Unser Programm druckt fünf verschiedene 


gr 
Zeilen aus Sternen und Zwischenräumen. 


Werte für das DATA-Statement: 





3,4,4,5,1,5,1,5,1,5,2,2,2,5,1,5,1,5,1,5,4,4,3 
RUN 


KRRRREERERERÄERERRRRK RK 
“ER EE—N »r * 
KR RR KK —KR—GKR=—,H KK 
*k%* *r%* “"r%* *%*%* 


*%%* **%* **%* “** 
KR HERR 
RER KR H 
KR KRRERR 
**%* **%* **%* *“x* 


“r% *r%* *R% “*r% 
a ZueL SEE Zul SEE Zu Zu Set Zr SEE Su; 
KRERERRRRFTFTF FR HH 
KRRHHERERRRRÄERERREHRHR 


je ein kleiner Tip: Das (Muster besteht aus fünf verschiedenen 
= enarten, Die erste und die letzte Zeile gehören zum "Typ 3” 

ie erste und die letzte Zahl im DATA-Statement lauten ebenfalls 
3. Haben Sie jetzt eine Idee? j 


wBeie/e eo... 2. vie a njw nn nu fee 5‘ 
[Cauec u ur ar ur Kar ar er er ar 
BR a ehe et. ertee Inetare en Leere en a 
EUR EI a nie nu ae 
FREENET RISSE 
ee, a er re rar ae 5 
ne ee nn el äh a aka 
.. 11,1. 
BE = ec ame car na aa uk ar aan a rn 
er a ee een se 
ag kas Baacla A ana uns mama va rar on erh an 
EEE NEE 
BEw.E WOW RE Buena Fee a ee tee 
u. von a ee re 
22 Aerza  ae ie Aare EN ne 
.en teen“ 
a cn mann art una, ware ra Si tan u aan 
a rue ne ee 


EN we 
. ern. 
u dere 
nee ee 
...0.00. 
CE IR 8 ver vr wer 
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Antworten zum Eigentest 


Die Zahlen in Klammern geben die Abschnitte an, in 
weilige Stoff behandelt wurde. 


1.3927 b) 12 c) 12 d) 12 
(Abschnitt 1 — 6) 

2.2) 3 7 0 —2 
5 —1 7 8 


0 3 
ERROR- 6AT LINE 10 
b3 70-25-1780 -3 


(Abschnitt 1 — 5) 


3.2)X=3 X=7 x 
xX=7 xX=8 x 
ERROR- 6 AT LINE 10 

b)X=3X = 7X =5X=7X=8X =D 
ERROR- 6 AT LINE 10 


Wie würden Sie Ze 
den einzelnen Ergebnissen zu habe 


m a (Abschnitt 32, 33) 
x = = 7 usw. 
ROZENT 
‚ANTWORT ANZ.DER P 
. (J/N) ANTWORTEN (Abschnitt 35) 


5,420 PRINT “ANTWORT”, “ANZ. DER”, “PROZENT 
430 PRINT “(J/N)“, “ANTWORTEN 
440 PRINT 
450 LET S=J+N 
460 PRINT “JA”, J,100*J/S 
470 PRINT “NEIN“,N,100*N/S 
480 PRINT “SUMME ,S,100 
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denen der je- 


i wischen 
ile 20 abändern, um mehr Zwischenraum 2 
en n und der Ausdruck bsispielsweise 





Im obigen Programm haben wir S benutzt, um die Summe der ab- 
gegebenen Stimmen (S = J + N) zu zählen. In den Zeilen 460 und 
470 wird der Prozentsatz der Ja- und Nein-Stimmen durch die Aus- 
drücke 100*J/S und 100*N/S berechnet. (Abschnitte 18 — 20, 35) 


6. 100 REM***UMFANG EINES RADES 
110 READD 
120 PRINT 
130 PRINT "RADDURCHMESSER:” ;D 
140 PRINT “RADUMFANG:” ;3.14*D 
150 GOTO 110 
160 DATA 16,20,24,26,27 


7.100 REM* **MUENZENWURF-SIMULATION 
110 PRINT : PRINT “WIEVIELE WUERFE” ;: INPUT N 
120 IFN (1 THEN END 
130 REM***WERFE DIE MUENZE N MAL 
140 K=0 : PRINT 
150 C=INT(2*RND(1)) 

160 IF C=0 THEN PRINT “'W“; 
170 IF C=1 THEN PRINT "Z“; 
180 K=K+1 

190 IFK{N THEN 150 

200 END 


Es gibt mehrere Möglichkeiten, dieses Programm zu schreiben. In 
unserer Lösung verwenden wir die Variable K, um die Anzahl der 
Münzenwürfe zu ermitteln. In Zeile 140 setzen wir K auf 0. Bei 
jedem Schleifendurchlauf wird K um 1 erhöht (Zeile 180) und mit N 
(Zeile 190) verglichen. Solange K kleiner als N ist, erhöhen wir je- 
weils K um 1 und durchlaufen nochmals die Schleife. Ist N kleiner als 
1, erfolgt kein Wurf mehr. Das wird in Zeile 120 geprüft. Ihr Pro- 
gramm kann völlig anders aussehen, aber wenn es arbeitet, haben Sie 
das Problem gelöst. (Abschnitte 37, 42) 


(Abschnitt 1) 


8. Wir haben das Programm aus Frage 7 in geeigneter Weise abgeändert. 


Das vollständige Programm ist nachstehend aufgelistet. Die Variable 
W wird verwendet, um die Anzahl der “Wappen“ und die Variable 
"Z" um die Anzahl der “Zahlen” zu ermitteln. 

Achten Sie auf W und Z in den Zeilen 140, 160, 170 und 210. 
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8. 


100 REM***MUENZENWURF-SIMULATION 

110 PRINT : PRINT “WIEVIELE WUERFE”; : INPUT N 
120 IFN(1 THEN END 

130 REM***WERFE DIE MUENZE N MAL 

140 K=0 : W=0 : Z=0 : PRINT 

150 C=INT(2*RND()) 

160 IF C=0 THEN PRINT ‚w',: W=W+1 

170 IF C=1 THEN PRINT "Z"; : Z=Z+1 

180 IF K(N THEN 150 

200 PRINT : PRINT 


210 PRINT H:” WAPPEN UND “;T;” MAL ZAHL” 
220 END (Abschnitte 33, 37, 42) 


100 REM***ZAEHLE DIE DATEN IN DATA-STATEMENTS, 
AUSSER DEM FLAG 

110 K=0 

120 READ N 

130 IF N () 1E97 THEN K=K+1 : GOTO 120 

140 IF N=1E97 THEN PRINT “ES SIND “;K;" DATEN 
VORHANDEN.” 

150 DATA 2,3,5,7,11 ‚13,17,19,23,29,31,37,41 

160 DATA 43,47 ,53,59,61,67 ‚71 ‚13,79,83,89,97 ,1 E97 

999 END (Abschnitte 10, 11, 19) 


10. 100 REM***PROGRAMM ZUM DRUCKEN EINES MUSTERS 
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110 READ X : IF X=-1 THEN END 
120 ON X GOTO 210,220,230,240,250 
200 REM***MUSTERZEILEN 
210 PRINT HRERERKR “r% 


220 PRINT URRHCHRRRR 
230 PRINT Pre NE 2 2 2 EZ E22 02 02.2.2.202 . GOTO 110 


SagpaiNT ee ae ne is GOTO 110 
gegppinT ee mm A in GoTo iD 


300 DATA 3,4,4,5,1,5,1,5,1 ‚5,2,2,2,5,1,5,1 ‚5,4,4,3,—1 


waraarreı 


: GOTO 110 
GOTO 110 


ARE CO HRRU 
. 


Hier sehen Sie noch einen anderen Lösungsweg: 
10 REM***PROGRAMM ZUM DRUCKEN VON MUSTERN 
30 IF X=-1 THEN END 
40 IF X=1 THEN 100 
50 IF X=2 THEN 120 





Sm’ 


N 


es 


60 IF X=3 THEN 140 

70 IF X=4 THEN 160 

80 IF X=5 THEN 180 

90 GOTO 20 

100 PRINT “*+*r#**  xx* 
110 GOTO 20 

120 PRINT “+ Feet 
130 GOTO 20 

140 PRINT UERREKERERRTKEKRR KK IF KK KR FR TG 
150 GOTO 20 

160 PRINT“ Hr nn oa 
170 GOTO 20 
180 PRINT "*** “xx “*%* 
190 GOTO 20 
900 DATA 3,4 4,5,1,5,1,5,1 
910 DATA 2.5,15.15,1 ee 


KERARRERU 


KERER CHE HU 


“Rt 


(Abschnitt 18, 19) 
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NOTIZEN 





KAPITEL 6 


FOR-NEXT-Schleifen 


In diesem Kapitel möchten wir Sie mit einem anderen wichtigen Kon- 
zept der Computer-Programmierung vertraut machen: der FOR-NEXT- 
Schleife. Das IF-THEN-Statement und die FOR-NEXT-Schleife er- 
weitern die Anwendungsmöglichkeiten unseres Computers beträchtlich. 
Wenn Sie aufmerksam den Erklärungen in diesem Kapitel folgen und 
die jeweiligen Fragen beantworten, werden Sie die Funktion dieser 
BASIC-Statements ohne Schwierigkeiten verstehen und mit Ihren 
Programmierkenntnissen ein beträchtliches Stück vorankommen. Wenn 
Sie dieses Kapitel beendet haben, können Sie... 


© die Statements FOR und NEXT benutzen, und 
© die STEP-Bestimmung in FOR-Statements anwenden. 


1.Das folgende Schleifen-Demonstrations-Programm ist ein Zählpro- 
gramm, das die Werte von F ausdruckt, wenn wir F von 1 bis 6 erhöhen. 
Zeile 10 dient lediglich dazu, um F mit 1 zu initialisieren. Initialisierung 
bedeutet, wie Sie sich sicherlich erinnern, einer Variablen den ersten 
Wert zuzuweisen. Zeile 20 druckt den gegenwärtigen Wert von F aus. 
Zeile 30 erhöht F bei jedem Programmdurchlauf um 1. 


Zeile 40 enthält ein IF-Statement, das den Wert von F abfragt. Solange 
F kleiner oder gleich 6 ist, schickt Zeile 40 den Computer wieder 
zurück zur Zeile 20, um den Wert von F auszudrucken. Sobald F größer 
als 6 wird, stoppt das Programm, da keine weiteren Statements mehr 
vorhanden sind. Schreiben Sie das Programm zur Übung um, und zwar 
unter Verwendung von Mehrfach-Statements in einer Zeile. Überlegen 
Sie bitte sorgfältig, ob Sie das ganze Programm in einer Zeile schreiben 
können. 


5 REM***SCHLEIFEN-DEMONSTRATION 
10 LET F=R1 

20 PRINT "F=";F 

30 LET F=F+1 

40 IFF(=6THEN 20 
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10 LETF=1 
20 PRINT“F=";F:LETF=F+H1: IF F(= 6 THEN 20 


Das IF-THEN-Statement in Zeile 20 bedeutet: Ist der Vergleich in Zeile 
20 WAHR, gehe wieder an den Zeilenanfang zurück und führe nochmals 
alle Statements aus. Zeile 10 würde zwar ebenfalls noch in diese Zeile 
hineinpassen, jedoch muß dabei beachtet werden, daß in diesem Fall 
der Wert für F jedesmal bei der Ausführung des Statements initialisiert 
würde. Daher können wir nicht das ganze Statement in eine Zeile 


. schreiben. 


2.Die Platz und Zeit sparende FOR-NEXT-Schleife führt in sehr 
einfacher Weise eine vorgegebene Anzahl von Wiederholungen oder 
Schritten aus. Sehen Sie sich einmal die nachfolgende FOR-NEXT- 
Schleife an. Statt IF-THEN verwenden wir diesmal FOR- und NEXT- 
Statements, um dem Computer zu sagen, wie oft er die Schleife durch- 
laufen muß. 


5 REM***FOR-NEXT-SCHLEIFEN-DEMONSTRATION 
10 FOR F=1 TO6 
20 PRINT ”F=";F 
30 NEXTF 


In jeder FOR-NEXT-Schleife ist das FOR-Statement der Anfang und 
das NEXT-Statement immer das letzte Statement der Schleife. Das oder 
die Statements zwischen FOR und NEXT werden in der vorgegebenen 
Reihenfolge immer wieder ausgeführt, wobei das FOR-Statement dem 
Computer anzeigt, wie oft die Schleife durchlaufen werden muß. 


a) Sie sehen aus dem Ablauf der FOR-NEXT-Schleife, daß der Wert 
von F bei jedem Schleifendurchlauf automatisch um .. erhöht wird. 
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b) Wie oft hat der Computer die Schleife durchlaufen? .. 


c) Warum hielt der Com 
puter an, na : 
Bchlötfen äsgeführfihaite? chdem er die angegebene Zahl von 


. 7er... 
..—.1n.1.n........... 
na... 
. 


a) 1 b) 6 


c) Weil ihn das FOR-Statem . 
x t . 
d) Ein NEXT-Statement an. anwies, von 1.bis‘6 zu gehen. 


ae Re en Programm sehen können, fährt der Com 
est des Programms fort, sobald ” 
Statement angegebenen Schleifen ausgeführt hat ER DORDERRN 


5 REM***NOCH EINE FOR-NEXT-SCHLEIFE 


10 FOR D=5 TO 10° ——Die Schlei 
20 PRINT “D=";D EI 


30 NEXTD 
40 PRINT 
* En "AHA! AUSSERHALB DER SCHLEIFE, DA” 
D =" ; D: “UND DAMIT GROESSER ALS 10 IST.” 


Han m u 
zeersou“ 


Se OO0O000900=2 
> 


I AUSSERHALB DER SCHLEIF 
E,DA 
1 UND DAMIT GROESSER ALS 10 IST. 


u 
Be 


..... 
.... . 1... nn er er en 
.er.r 


Zeilen 10, 20 und 30 
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4.Wie arbeitet die FOR-NEXT-Schleife? Folgen Sie den Pfeilen: 


10 FORN=1TO3 In Zeile 10 wird N = 1 gesetzt. 


20 PRINT De ] 


u N(=3 
30 ae 


3 


i Ö i der Computer den 
i wird N um 1 erhöht. Dann vergleicht 
ne von N mit der im FOR-NEXT-Statement angegebenen 


oberen Grenze für N. 
Sehen wir uns das FOR-NEXT-Statement einmal näher an: 
10 FOR N = 1 TO 3-—— Wenn N größer als der vorgegebene 


Wert 3 wird, stoppt der Computer die 
Ausführung der Schleife und fährt mit 


ist di ichen Programm nach der 
ies ist die dem _restlic 
Tee Schleife fort. Wir nennen diesen nn 
Kontrollvariable die Grenze von N, oder die Grenze 


FOR-Variablen. 
Dies ist der erste Wert von N. 


Und so sieht ein Lauf des obigen Programms aus: 


10 FOR N=1 TO 3 
20 PRINTN 
30 NEXT N 


RUN 
1 
2 
3 


Jedesmal, wenn der Computer auf ein NEXT-N-Statement trifft, 
erhöht er den Wert von N um 1 und vergleicht den nn —_ m %.. 
i i i da das -Stateme 
von N. In diesem Fall ist die Grenze 3, f 
er FOR N = 1 TO 3. Sobald der Wert von N größer als 3 wird, 
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fährt der Compüter mit dem nächsten Statement nach dem NEXT- 
Statement fort, sofern noch eins vorhanden ist. Ist das nicht der Fall, 
hat er die Programmausführung beendet und hält an. Haben Sie alles 
verstanden? Sie können es gleich selbst nachprüfen! 


Statement 10 bedeutet, daß beim ersten Schleifendurchlauf N=1 ist. 
Beim zweiten Schleifendurchlauf it N N+1=1+1=2. Beim dritten 
Durchlauf schließlich ist 


N=N+1=2+1=3 


5. Schreiben Sie ein Programm mit drei Statements, welches das Wort 
SCHLEIFE sechsmal druckt. Verwenden Sie dazu eine FOR-NEXT- 
Schleife und benutzen Sie C als die FOR-NEXT-Schleifen-Kontroll- 


Variable. Schreiben Sie bitte auf, was Ihr Programm ausdruckt, wenn es 
abläuft. 


BEE ee.T 90 Ense Bee ee re ee lee ee ee Dee 
ee ai ne ee ee ee een ee 
an seiene aa ee ne ee Eu ne ee ee ee re 
ER 48.00 ie ae rue u ee ee ee ee ee he 
ZZ mean rien Var ee DEE Se ra rue 
er. ie si ie) a ne Swen ei ee eier ie ee a 
ie 2.0 weiBinie no Re a ee ee ee see ee ee ee ee 
nie weine aa Er EEE. Rene ee eu ee 

ee 80 m nie ae ee ee ee ie 

N ie a a een ee ee“ 


10 FORC=1TO6 

20 PRINT “SCHLEIFE” 
30 NEXTC 

RUN 

SCHLEIFE 

SCHLEIFE 

SCHLEIFE 

SCHLEIFE 

SCHLEIFE 

SCHLEIFE 
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6. FOR-NEXT-Statements können auch in Zeilen mit en an 
ments vorgesehen werden. Hier sehen Sie ein ganzes FOR-N : 
Programm in einer einzigen Zeile. Folgen Sie zum Verständnis den 


angegebenen Pfeilen. 


10 FORN =1T05 : PRINT N;“ “; : NEXT N : PRINT “N IST”; N 


RUN 
1 2 3 & 5 
N IST6 


Wie groß war der Wert von N, als der Computer die FOR-NEXT- 
Schleife beendet und sie verlassen hatten? .......-s0esss rennen nn 


Beachten Sie bitte, daß der Wert von N nach dem Verlassen er RATE 
um 1 größer ist als die im FOR-Statement angegebene obere _—_c 
N. Auf diese Weise stellt der Computer fest, daß er die geforderte Pan. 
zahl von Schleifen ausgeführt hat und zum nächsten Statement im Fr 


gramm weitergehen kann. 
7.Nehmen wir einmal an, Sie geben die folgende Statement-Zeile ein. 
10 PRINT “TEST“; : FORX = 1 TO4: PRINT X; “ “; : NEXT X 


Was wird Ihr Computer ausdrucken, wenn Sie die Ausführung durch 
RUN HErtEE? cu menu ne ehe a aan u en a DIRT 


ändi i Programm bitte so, daß der 
8. Vervollständigen Sie das nachfolgende so, 
Computer den angegebenen Lauf ausführt. Verwenden Sie eine FOR 
NEXT-Schleife mit Y als Kontroll-Variable. 
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10 PRINT “IN DIESEM JAHR IST CATHY 10 JAHRE ALT“ 


Bra ee rien ae a EEE ae a ee 
Hin ir ae a ae a Fran na een 


RUN 

IN DIESEM JAHR IST CATHY 10 JAHRE ALT 
UND IM NAECHSTEN JAHR WIRD SIE 11 
UND IM NAECHSTEN JAHR WIRD SIE 12 
UND IM NAECHSTEN JAHR WIRD SIE 13 
UND IM NAECHSTEN JAHR WIRD SIE 14 

20 FORY=11T014 


30 PRINT “UND IM NAECHSTN JAHR WIRD SIE”; Y 
40 NEXT Y 


9. Es wäre noch darauf hinzuweisen, daß man bei FOR-NEXT-Schleifen 
auch die Variablen statt der numerischen Werte einsetzen kann, voraus- 
gesetzt natürlich, daß den Variablen zuvor im Programm Werte zuge- 
wiesen wurden. Im folgenden Beispiel werden die Werte, wie üblich, 
durch LET-Statements zugewiesen. Die Werte hätten auch durch 
INPUT- oder READ-Statements zugewiesen werden können. 


10 A=3: B=8 

20 FORC=A TOB 
30 PRINT ” 2 C; 
40 NEXTC 


RUN 
345678 


Schreiben Sie das FOR-Statement in Zeile 20 um, und ersetzten Sie da- 
bei die numerischen Werte für die Variablen A und B. Verwenden Sie 
die Werte, die im obigen Programm zugeordnet wurden. 


20 


BEEnEe Le; eu an mie Bone ee Rear ie ri ee ea a 


20 FORC=3TO8 
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10. Spielen Sie einmal Computer und geben Sie den Lauf für dieses 
FOR-Next-Demonstrations-Programm an. 


10 X=0:Y=4 

20 FOR Z=XTOY 
40 PRINT "";Z 
50 NEXT Z 


Renee ri nee nn ee ae re ET RE BEN 


11. Schreiben Sie jetzt ein Programm, in dem die Variablen dazu ver- 
wendet werden, den Anfangs- und Endwert der FOR-NEXT-Schleifen- 
Kontrollvariablen festzulegen. Schreiben Sie Ihr Programm so, daß die 
benötigten Daten durch READ aus einem DATA-Statement gelesen 


werden. 


Verwenden Sie Z als Kontrollvariable und X und Y für die Variablen, 
welche die Anfangs- und Endwerte festlegen. Wählen Sie die Werte für 
Ihr DATA-Statement so, daß das Programm den folgenden Lauf er- 


zeugt: 


RUN 
100 101 102 103 104 105 


a Derek ee er ee re RER RE ee ur ne re we PIE 
Eee Be were EEE une ee ee re ar iiiTe Ei BE 
Seren ar ee 8 WETTE ER a arena een ER LE 
re ea a ae ra ie RR u Ri een ne NN 
EEE Eee ee m wanna Aal a ri ee BL BE 


ae ee re Ra ar ERREKE rue ee ee 


10 READX 

20 READY 

30 FOR Z=XTOY 
40 PRINT"; Z 
50 NEXTZ 

60 DATA 100,105 
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Die Statements 10 und 20 könn i inzi 
nten auch zu einem einzigen - 
gefaßt werden: ei 


10 READ X,Y 


12. Im folgenden Programm wird ein durch INPUT (Zeile 40) einge- 

gebener Wert verwendet, um die obere Grenze des FOR-NEXT-State- 

Pr ee 100) festzulegen, die dem Computer angibt, wie oft er X 
= ?" wiederholen soll. Wenn das Programm läuft ic 

| R die PRINT- 
Statements in den Zeilen 10 bis 80 dem B oe 

enut - 

ne zer, wie er mit dem Pro 


> all TE DWERTPROGRANN 
T “ICH WERDE DEN MITTELWERT EINER LI e 
20 PRINT “VON ZAHLEN BERECHNEN.” a 
30 PRINT 
40 PRINT’WIEVIELE ZAHLEN ENTHA u. 
id ELT DIE LISTE?":INPUTN 
” En m... WENN ICH °X =?" FRAGE’ GEBEN SIE” 
“EINE ZAHL EIN UND D R 
ann RUCKEN AUF RETURN. 
90 T=0 
100 FOR K=1 TON 
110 PRINT ”X ="; : INPUT X 
120 T=T+X 
130 NEXT X 
140 M=T/N 
150 PRINT 
160 PRINT "SUMME =‘; T 
170 PRINT “MITTELWERT = ";M 


a) Im obigen Programm belegt die FOR-NEXT-Schleife die Zeilen 


u... en“ 


c) Die obere Grenze der Kontrollvariablen wird durch einen Wert fest- 
gelegt, der welcher anderen Variablen zugewiesen wurde? 


u. e 


a) 100, 110, 120, 130 b) K c)N 
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i - - ife im Programm aus Abschnitt 
‚Welche Zeile der FOR-NEXT Schleife im 
- enthält einen laufenden Zähler für die für Zeile 110 eingegebenen 


Weartad u 2: wasser nenn ER HERE TR ER R 


120 T=T+X 


14. Dies ist ein Lauf des Programms aus Abschnitt 12: 


RUN 

ICH WERDE DEN MITTELWERT EINER LISTE 

VON ZAHLEN BERECHNEN. 

WIEVIELE ZAHLEN ENTHAELT DIE LISTE? 5 
'X=?' GEBEN SIE 

JEDESMAL WENN ICH ’X=?' FRAGE, 

EINE ZAHL EIN UND DRUCKEN AUF RETURN. 

X =? 16 

X =? 46 

X =? 38 

X =? 112 

X =? 23 


SUMME = 235 
MITTELWERT =47 


Geben Sie bitte die numerischen Werte für das FOR-NEXT-Statement 
des obigen Laufs an. 
100 FORK= .......:..- TO u werner & 


15. Hier sehen Sie den Anfang eines weiteren Laufs des gleichen Pro- 
gramms. 


RUN 

ICH WERDE DEN MITTELWERT EINER LISTE 

VON ZAHLEN BERECHNEN. in 
E LISTE? 4—-Dies I - 

WIEVIELE ZAHLEN ENTHAELT DI ae 


Wie oft wird "X =? gedruckt? ... css. .s seen ennn nenn nn nn 
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Wie oft werden die Statements zwischen den FOR-NEXT-Statements 
ausgeführt? 


wenn. Dei he en ereie e Dan EcWDi 


Nur um Ihnen das zu beweisen — hier ist der Rest des gleichen Laufs: 
JEDESMAL WENN ICH ’X=?' FRAGE, GEBEN SIE 

EINE ZAHL EIN UND DRUCKEN AUF RETURN. 

xX=?2 

xX=74 

X=?6 

xX=?8 

SUMME =20 

MITTELWERT =5 


16. Vervollständigen Sie das nächste Programm, mit dem das Produkt 
(P) von N Zahlen berechnet wird. Denken Sie sorgfältig über die 
Wirkung Ihrer Statements beim Lauf des Programms nach. 


5 REM***DAS PRODUKT VON N ZAHLEN 
10 PRINT “ICH WERDE IHNEN DAS PRODUKT EINER” 
20 PRINT “LISTE VON ZAHLEN BERECHNEN.” 
30 PRINT 


40 PRINT “WIEVIELE ZAHLEN HAT DIE LISTE“; : INPUT N 
50 PRINT 
60 PRINT “JEDESMAL WENN ICH ‘X =?’ FRAGE, GEBEN SIE EINE” 


70 PRINT “ZAHL EIN UND DRUECKEN DANN AUF RETURN.” 
80 PRINT 


en ae Banane im nitialisierung 
se ann nn ne ne nn een. 
120 PRINT “X ="; : INPUT X 

130 P=P*xX 

140 


een ne ae en a ei ee ee re Bern 


"RUN 


ICH WERDE IHNEN DAS PRODUKT EINER 
LISTE VON ZAHLEN BERECHNEN. 


WIEVIELE ZAHLEN HAT DIE LISTE? 5 
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JEDESMAL WENN ICH ’X =?’ FRAGE, GEBEN SIE EINE 
ZAHL EIN UND DRUECKEN DANN AUF RETURN. 


X=?7 
X=?12 
xX=?4 
xX=74 
X=73 
X =?19 
PRODUKT = 19152 


100 LET P=1 
110 FOR K=1 TON 
140 NEXT K 


17. Zur Festlegung sowohl des Anfangs- als auch des N 
FOR-NEXT-Schleifen-Kontrollvariablen kann jeder. beliebige B 2 - 
Ausdruck verwendet werden. Der Computer berechnet diese = 
drücke, bevor die Schleife zum ersten Mal ausgeführt wird. Während der 
einzelnen Schleifendurchläufe berechnet er sie nicht mehr neu. 


ie si - i ächsten Programm einmal 
Sehen Sie sich das FOR-Statement im nac 
genau an und entscheiden Sie dann, ob der Computer die korrekte 
Anzahl von Schleifendurchläufen ausführte. 


10 Q=4 

20 FOR P=Q TO 2*0-1 
30 PRINT ” ";P; 

40 NEXTP 


RUN 


4567 Der Computer hatte recht! 


Füllen Sie bitte im folgenden Programm die Leerstellen in re a 
mit Ausdrücken unter Verwendung der Variablen Q aus, so daß das 
Programm beim Ablauf den folgenden Ausdruck erzeugt: 


10 0-4 
20 FORP= ...... Mn nu 
30 PRINT” ";P; 
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40 NEXT P 


RUN 
23456789 10 11 12 


20 FOR P=0/2 TO Q*3 oder 20 FOR P=Q--2 TO Q+8 


Hinweis: 
Sollte Ihre Lösung anders aussehen und Sie sind der Ansicht, daß sie 


richtig ist, dann probieren Sie sie auf Ihrem Computer aus, um zu 
sehen, ob Sie den gleichen Lauf wie wir erhalten. 


18. In den FOR-NEXT-Schleifen, die Sie bisher gesehen haben, über- 
nimmt die FOR-NEXT-Schleifen-Kontrollvariable den ersten, im FOR- 
Statement angegebenen Wert und behält Ihn solange bei, bis der Com- 
puter zum NEXT-Statement kommt. Dann erhöht die FOR-Variable bei 
jedem Schleifen-Durchlauf ihren Wert, bis sie den maximal möglichen 
erreicht hat, den das FOR-Statement zuläßt. 


FOR X:5 TO 10 


Erster Wert von X Maximaler Wert für X. 


X ist zuerst also 5 und nimmt dann die Werte 6,7,8,9, und schließlich 
10 an. 


Es ist jedoch möglich, ein FOR-Statement zu schreiben, das ein An- 
steigen des Wertes der FOR-NEXT-Schleifen-Kontrollvariablen um 


Vielfache beliebiger anderer Zahlen als 1 oder in Bruchteilen von 1 
veranlaßt. 


Es ist auch möglich, die Schleifen-Kontrollvariable bei jedem Schleifen- 
durchlauf zu verringern: 
10 FOR X=1 TO 10,STEP 2 


STEP 2 weist den Computer an, den Wert von X bei jedem 
Schleifendurchlauf um 2 zu erhöhen, bis X größer als 10 ist. 
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10 FOR Y=3 TO 6 STEP 1.5 


STEP 1.5 weist den Computer an, den Wert von Y bei jedem 
Schleifendurchlauf um 1.5 zu erhöhen, bis Y größer als 6 ist. 


10 FOR Z=10 be STEP —1 
! ie _1 weist den Computer an, den 


Beachten Sie, daß Z bei 
Wert von Z bei jedem Schleifendurch- 


10 beginnt und bis auf 
5 verringert wird. gang um 1 zu verrringern, bis er kleiner 
als 5 ist. 


Einige Demonstrationsprogramme sollen Ihenen die praktische 
Wirkung von STEP zeigen. 


10 FOR B=1 TO 10STEP 2 

20 PRINT“ ";B; 

30 NEXT B 

40 PRINT 

50 PRINT 

60 PRINT “DIE SCHLEIFE IST BEENDET, DA” R 
70 PRINT ”B=";B; “UND DAMIT GROESSER ALS 10 IST.” 


RUN 
13579 


DIE SCHLEIFE IST BEENDET, DA 
B = 11 UND DAMIT GROESSER ALS 10 IST. 


Beachten Sie, daß die Schleife mit dem ersten Wert des FOR-State- 
ments beginnt (1) und in Schritten von 2 anwächst, bis der Wert von 
B=11 ist, und damit die vorgegebene Grenze von 10 überschreitet. An 
diesem Punkt beendet der Computer die Schleife und fährt mit dem 
Rest des Programms fort. 


Spielen Sie jetzt wieder einmal Computer und füllen Sie bitte den Lauf 
für das folgende Programm aus. 


10 D=3 : FOR F=D TO 4*D STEP D : PRINT ” ”; F;: NEXT F 





19. In diesem Beispiel folgt auf STEP im FOR-Statement eine negative 
Zahl. STEP kann dazu verwendet werden, den Wert der FOR-Variablen 
in Schritten mit beliebiger Größe zu verringern. 


10 FOR J=100 TO 10STEP —10 
20 PRINT ff) " J; 
30 NEXT J 


RUN 
100 90 80 70 60 50 40 30 20 10 


Schreiben Sie jetzt ein Programm, in dem die FOR-NEXT-Kontroll- 
variable E in Schritten von 3 von 27 auf 18 verringert wird. Schreiben 
Sie das Programm und einen Lauf. 


Lee 
nern. 
SCOHIiE EEE EKEWEWTERETWEWERWEREUERNWERENENWIH 
. er rn“ 
Der ee 
. rer ee 
[I Ba ar Ber Jar Ba er Ber Bar Bar Ber Tr a Ba Ber Zr Be Ber er ar er er er Ta Be er er ee ee ee ee 
nr rennen. 
2 sc yet er er Ser Er Er zur ur Ey ce 57 re ee ee ee Er er rer ww 
LoBE SEC Ir JEL Dar Jar mE 5& 2 mr er we} 


10 FOR E=27 TO 18STEP -3 
20 PRINT” ";E; 
30 NEXTE 


RUN 


27 24 21 18 


en _ darauf hingewiesen, daß die Schritte in einer 
- -Schleife auch Brüche sein können. Das f ispi 
soll dies demonstrieren. RETTEN 


10 FORX=5T075STEP .25 
20 PRINT ” ;X; 
30 NEXT X 


RUN 
6 525 55 575 6 625 65 675 7 725 75 


201 


Schreiben Sie bitte einen Lauf für dieses Programm, wenn wir Zeile 
10 folgendermaßen ändern. 


10 FORX=5T07.5STEP.5 
RUN 


Pure LE, 
Pe Er Er 
. nn ee ee ee 

. ernennen 


i ife i äßig für Probleme wie wieder- 
21. Die FOR-NEXT-Schleife ist zweckmäßig für 
holte Berechnungen, Zählschleifen oder die Behandlung zyklischer 
Ereignisse. 


Ein derartiges, immer wiederkehrendes Ergebnis ist die monatliche 
Berechnung der Zinsen für ein Sparkonto. Im folgenden Programm 
werden die monatlichen Zinsen (Z) in Zeile 1 80 durch Multiplikation 
des Sparkapitals (K) mit dem Zinssatz (P) ermittelt. 


Der Zinssatz wird in einen Dezimalbruch umgewandelt: P=5 
Prozent = 5/100 = .05. 


Da 5 Prozent der jährliche Zinssatz sind, wird nur 1/12 der berechneten 
Zinsen monatlich zum Sparkapital hinzuaddiert. 


100 REM***MONATLICHE Ser 
“SPARKAPITAL” ; : INPU 

120 Par IKEHRLICHER ZINSSATZ (IN %)” ;: INPUT P 

130 PRINT “WIEVIELE MONATE“; : INPUT M 

140 PRINT 

150 PRINT *'MONAT“, “BETRAG 

160 FOR K=1 TOM 

170 PRINT K,P 

180 Z=(K*(P/100))./12 

190 K=K+Z 

220 NEXT K 

RUN 


SPARKAPITAL? 200 
JAEHRLICHER ZINSSATZ (IN %)? 5 
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WIEVIELE MONATE? 6 


MONAT BETRAG 
200 
200.833333 
201.670138 
202.51043 
203.354223 
204.201532 


Oo0Pwomn — 


Diese Tabelle gibt den Stand des Sparkontos jeweils am Beginn eines 
Monats an. 


a) Welche Zeilen liegen innerhalb der FOR-NEXT-Schleife? .......... 


b)Welche Variable wird zum Ausdrucken der Zahl des jeweiligen 
Monats am Anfang einer Zeile der Tabelle verwendet? ... 2.2222... 


c) Zeile 150 druckt die Spalten-Überschriften für die Tabelle. Die in den 
Überschriften verwendeten Worte sind durch Komma getrennt. In 
Zeile 170 sind die Werte, die unter den Überschriften augedruckt 
werden sollen, ebenfalls durch Kommas getrennt, so daß die Ab- 
stände der Überschriften und der darunter stehenden Zahlen zu- 
sammenpassen. Was würde geschehen, wenn das Statement, das die 
Überschrift druckt, in der FOR-NEXT-Schleife enthalten wäre? 


d) Welche Zeile enthält einen laufenden Zähler für den jeweiligen Stand 
des Kapitals + Zinsen? 


Rn ee ER Bean en re es 


a) 160, 170, 180, 190, 200 
b) Die FOR-Variable K 
€) Die Überschrift würde bei jedem Schleifendurchlauf zwischen den 


einzelnen Zeilen der Tabelle gedruckt werden. 
d) 190 


22.Die sechs Stellen hinter dem Komma ausgedruckten Sparkapital 
haben Ihnen sicher schon gestört. Glücklicherweise gibt es in BASIC 
eine einfache Möglichkeit, um Zahlen bis auf eine gewünschte Stellen- 
zahl hinter dem Komma abzurunden, 


Erinnern Sie sich noch daran, wie die INT-Funktion arbeitet? (Kapitel 
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4, Abschnitt 20). Die INT-Funktion schneidet eine Zahl am Dezimal- 
punkt ab, behält den ganzzahligen Anteil übrig und vernachlässigt den 
Dezimalbruchanteil. Zum Beispiel: INT (200.833333) = 200 


Da wir es aber mit DM und Pfennig zu tun haben, möchten wir na- 
türlich keineswegs auf die Pfennigangabe verzichten. Daher gehen wir 
folgendermaßen vor: 


10*200.833333 = 20083.333 
20083.333 + .5 = 20083.8333 
INT (20083.8333) = 20083 
20083/100 = 200.83 


1) Multiplikation mit 100 
2) Addition von .5 

3) ganzzahliger Anteil 

4) Division durch 100 


Jetzt sind Sie an der Reihe. Verwenden Sie das obige Verfahren um 
123.45678 DM auf den nächsten Pfennig zu runden. 


1) Mulitplikation mit 100 
2) Addition von 0.5 

3) ganzzahliger Anteil 

4) Division durch 100 


1) 100*123.456789 = 123 = 12345.678 
2) 12345.678 + 5 = 12346.178 

3) INT(12346.178) = 12346 

4) 12346/100 = 123.46 


23.Das folgende Programm ist eine Schritt-für-Schritt-Demonstration 
der im vorigen Abschnitt gezeigten Rundungsmethode. 


100 REM***SCHRITT-FUER-SCHRITT-DEMONSTRATION DER 
RUNDUNG 


110 PRINT “ZU RUNDENDE ZAHL’; : INPUT A 


120 PRINT “BEGINNEN SIE MIT IHRER ZAHL, A=";A 
130 A = 100*A 
140 PRINT ”(1) MULTIPLIKATION MIT 100, A=";A 
150 A=At5 
160 PRINT (2) ADDITION VON .5, A="A 





170 A = INT(A) 
180 PRINT ‘’(3) GANZZAHLIGER ANTEIL, A="A 


190 A = A/100 
200 PRINT ‘(4) DIVISION DURCH 100, A=";A 


210 PRINT "A IST GERUNDET AUF ZWEI DEZIMALSTELLEN” 
220 PRINT 

230 GOTO 110 

RUN 

ZU RUNDENDE ZAHL, 123.45678 


BEGINNEN SIE MIT IHRER ZAHL A = 123.45678 
(1) MULTIPLIKATION MIT 100, A = 12345.678 
(2) ADDITION VON .5, A = 12346.178 
(3) GANZZAHLIGER ANTEIL, A = 12346. 
(4) DIVISION DURCH 100,, A = 123.46 


A IST GERUNDET AUF ZWEI DEZIMALSTELLEN 


Hier ein weiteres Beispiel. Tragen Sie bitte die Werte von A ein und 
probieren Sie unser Programm auf Ihrem ATARI-Computer aus. 


ZU RUNDENDE ZAHL = 
(1) MULTIPLIKATION MIT 100, = 
(2) ADDITION VON .5, = 
(3) GANZZAHLIGER ANTEIL, = 
(4) DIVISION DURCH 100, Bi. ee ee ir ARE 
A IST GERUNDET AUF ZWEI DEZIMALSTELLEN 


PaneE Ba Baer Bar Be Te er Be er Be ee er er ae Ber Bar Be er a er 
er eeeeeee 
UBRE Vor We vu GL RC JE Wr BR Dur TR EI ur ac Wr Br Be Tec MU DR De 


203.7249 
(1) 20372.49 
(2) 20372.99 
(3) 23072 
(4) 203.72 


24. In unserem Rundungsprogramm erfolgt die tatsächliche Rundung 
in den Zeilen 130, 150, 170 und 190. Wir können diese vier Zeilen 
folgendermaßen zu einem einzigen Statement zum Runden einer Zahl 
kombinieren: 
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A = INT(100*A + .5)/100 


ISIN 


(3) ganzzahliger (1) Multiplikation (2) Addition (4) Division 
Anteil mit 100 von .5 durch 100 


Das obige Statement rundet den Wert von A auf zwei Dezimalstellen. 

1) Schreiben Sie ein Statement, um den Wert von P auf zwei Dezimal- 
seilän abzüruhiden. nun „+ namna 13 sein ar ame nn ee ER ET 

2) Schreiben Sie ein Statement, um den Wert von X auf eine Dezimal- 
stellsztirunden: „.. «= naar samen run nr 

3) Schreiben Sie ein Statement, um den Wert von B auf drei Dezimal- 
stallen zu rundah: sau 14 ame nme Dana a Henn nen 

1)P = INT(100*P + .5)/100 

2) X = INT(10*X + .5)/10 

3) B = INT(1000*B + .5)/1000 


Ü ie j i = INT(100*K + .5)/100 in 
Fügen Sie jetzt bitte das Statement 195K = IN 

a Programm MONATLICHE ZINSBERECHNUNG aus Abschnitt 21 
ein. Das sollte dazu führen, daß die Zahlen unter BETRAG auf den 
nächsten Pfennig gerundet werden. Ein Lauf wird dann folgendermaßen 
aussehen. 


RUN 

SPARKAPITAL? 200 
JAEHRLICHER ZINSSATZ (IN %)? 5 
WIEVIELE MONATE? 6 


MONAT BETRAG 
1 200 


[> 0 BE Su OS 
DS] 
oO 
N 
01 
_— 


206 





25. Ist eine FOR-NEXT-Schleife auch innerhalb einer weiteren FOR- 
NEXT-Schleife möglich? Selbstverständlich! So etwas nennt man “ver- 
schachtelte Schleifen’ und ist völlig korrekt, sofern Sie die nach- 
folgende Regel beachten: 









10FORX=1T05 
20FORY=1TO6 
30 PRINT "*"; innere Schleife 
40 NEXT Y 


50 NEXT X 


RUN 


KERRRÄRRRERERKTKRHK KEN N KH RR RR 


Zu beachten ist, daß sich die innere Schleife völlig innerhalb der zwei- 
ten, äußeren Schleife befinden muß, andernfalls erhalten Sie eine 
Fehlermeldung. 


Zählen Sie einmal die durch den Programmlauf ausgedruckten Sterne. 
Wieviele sind es? Sehen Sie irgend einen Zusammenhang zwischen der 
Anzahl der Sterne und den Zahlen 5 und 6, die in den beiden FOR- 
Statements enthalten sind? 


Eine Schleife innerhalb einer anderen wird als .......2.2222c0c000n 
FOR-NEXT-Schleife bezeichnet. Die innere Schleife muß vollständig 
nass sale der äußeren Schleife liegen. 


verschachtelte; innerhalb 


26.Hier sehen Sie zwei Programme mit verschachtelten FOR-NEXT- 
Schleifen. 


5 REM***PROGRAMM A 
10 FOR N=1 TO4 
20 FOR L=1 TO 3 
30 PRINT “VERSCHACHTELT“ 
40 NEXT L 


5 REM***PROGRAMM B 
10 FOR N=1 TO 4 
20 FOR L=1 TO 3 
30 PRINT"VERSCHACHTELT" 
40 NEXT N 
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50 PRINT “ SCHLEIFE’ 
60 NEXTL 


50 PRINT “ SCHLEIFE” 
60 NEXT N 


Welches Programm (A oder B) enthält korrekt verschachtelte FOR- 
NEXT-Schleifen? cu + #00 zwei ua names meinen nn mann WO 


Programm A 


27.Programm A in Abschnitt 26 erzeugt als Ausdruck ein sich mehr- 
mals wiederholendes Muster. Sehen Sie sich das Programm genau an 
und schreiben Sie auf, was der Computer ausdrucken wird, wenn das 
Programm läuft. 


ren FR er ee re ae EEE ee u u 


Se een re VER RR ee ie ee Br ar ee 


ee he rt in euer re teen ROT aa a 


RUN 
VERSCHACHTELT 
VERSCHACHTELT 
VERSCHACHTELT 
SCHLEIFE 
VERSCHACHTELT 
VERSCHACHTELT 
VERSCHACHTELT 
SCHLEIFE 
VERSCHACHTELT 
VERSCHACHTELT 
VERSCHACHTELT 
SCHLEIFE 
VERSCHACHTELT 
VERSCHACHTELT 





VERSCHACHTELT 
SCHLEIFE 


28. Das folgende Programm verwendet verschachtelte Schleifen, um ein 
rechteckiges Muster von “Sternen” zu drucken. 


10FORR=1TO3 
20FORC=1TO7 


Die innere Schleife veranlaßt den Com- 
puter, eine Reihe von 7 Sternen zu 
drucken. 





50 PRINT 
60 NEXT R 


RUN 


KRRRRRRR 
KRRRRRR 
KRRERRRR 


0... 


1.Es verschiebt den Cursor zum Anfang der nächsten Zeile, nachdem 
durch die innere Schleife eine Reihe von Sternen gedruckt wurde. 

2. Die äußere Schleife, die von den Zeilen 10 und 60 kontrolliert wird 
veranlaßt die Ausführung der inneren Schleife für R = 1,2 und 3. 
Dabei wird jedesmal eine Reihe von Sternen gedruckt. 


29. Schreiben Sie auf, was gedruckt wird, wenn wir das folgende 
Programm laufen lassen. 


10 FOR A=1 TO4 
20 FOR B=1 TO 3 
30 PRINT "?”; 

40 NEXT B 

50 PRINT 

60 NEXT A 
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ri Nine mie ERTE ARCHE NE 
a ee ae ir nee re ETRS 
era rei re lee 
u nee u ae ee ie 


22? Der Computer druckt vier Reihen mit je drei Fragezeichen. 


30. Schreiben Sie ein Programm, durch das 7 Reihen mit je 12 Dollar- 
Zeichen pro Reihe ausgedruckt werden. Ein Lauf sollte wie folgt 


aussehen: 


RUN 

EEITISTTTTT 
SIIEEE553358 
BEITIITTTTTT 
ERITTTTTTTTT 
BIITTITTTTTT 
BIBEEIEE3333 
BIBEEEBEEEES 


nie nennen TEE TE EERERE Ar Te en ee Bir MER 
a RETTET A Hear ara, Date a Meer Dir 
eh RN a aan Haan Be RT TRIER N TE 
RERRETE wrorarenaee BE EREN FERETETE Sa Br ee ee N 
Se BE EEE ae ur TE BER Biete A Ara EEE ui WRnMMGEZE 


. ern ern n* 
re rn a ee re au te 
er. ee 9 


10 FOR A=1 TO 7 
20 FOR Z=1 TO 12 
30 PRINT "3"; 

40 NEXT Z 

50 PRINT 

60 NEXT A 


Die von Ihnen verwendeten Variablen können natürlich anders lauten. 
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EIGENTEST 


Nach Abschluß von Kapitel 6 müßten Sie bereits genügend Program- 
mierkenntnisse gesammelt haben, um selbst an Ihrem Computer experi- 
mentieren zu können. Wenn Sie sich unsere Demonstrationsprogramme 
ansehen, dann werden Sie immer eine Reihe von Möglichkeiten ent- 
decken, auf die wir nicht näher eingegangen sind. Darum ein guter Rat 
von unserer Seite: Probieren Sie hier Ihre eigenen Ideen aus, Sie 


werden Ihre Kenntnisse und Fähigkeiten dadurch beträchtlich erwei- 
tern. 


Aber jetzt prüfen Sie erst einmal, ob Sie es wirklich verstanden haben, 
wie man FOR-NEXT-Schleifen anwendet, indem Sie die folgenden 
Aufgaben bearbeiten. 


1.Schreiben Sie auf, was beim Lauf des folgenden Programms aus- 
gedruckt wird. 
10 S=0 
20 FOR K=1 TO4 
30 S=S+K 
40 NEXTK 
50 PRINTS 


RUN 


Aiers.0e 10 0 0 a Tree aueh ee ee te 


2. Was wird durch das folgende Programm ausgedruckt? 
10 P=1 : FOR K=1 TO 4: P=P*K : NEXT K : PRINT P 
RUN 


.. 0, 1.7 [een 


3.Sehen Sie sich das folgende Programm genau an. Welcher der drei 
abgebildeten Ausdrucke wurde durch das Programm erzeugt? 


10. N=1 

20 FOR K=1 TON 
30 PRINT “*"; 

40 NEXT K 
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50 PRINT 

60 N=N+1 | 
70 IF N) 10 THEN END 

80 GOTO 20 


RUN 1 


*%%* 
“ar 
KR 
KERERRERR 
KERKKERERRR 
KRRRRRRRRRERH 
KRREEREREKRERRFR 


RUN 2 RUN 3 
waraRRrr ” 
“aRreer* ba 
KRRRRERR RE 
KERKKEK* EERR 
KarReRKe KERKR 
PeeeTTTT KRRRRR 


RKERRRKERK 


RRERERKER KERKERRRK 


KERRRRERKR 
RKRRÄEKRKRERRR 


Schreiben Sie ein Programm, durch das eine Tabelle für N, N2 und 
N3 ausgedruckt wird. Verwenden Sie INPUT-Statements, um anzu- 
geben, welche Zahlen Sie in der Tabelle haben möchten. Ein Lauf 
sollte wie folgt aussehen: 

RUN 

ERSTE ZAHL? 40 

LETZTE ZAHL? 45 


N N2 N3 

40 1600 64000 
41 1681 68921 
42 1764 74088 
43 1849 79507 
44 1936 85184 
45 2025 91125 


ee are ar ee Re re ee een rag iR ae Bei 
a RE Fr EERREE EEE ne ee rei re ee Bez 
une 3 ae ne Fe ee u te er ne eine ae az 

ET Weite ae nee Bi ee ee re ee wre in ie We 
.. . . 


oo... 
Pe ee a ar a a Br ur Br Be Er u 
ee Eine ae ee ne ee re 

.. rn rn. 





ee En EEE Era RE Re ie ee ehe 


5. Schreiben Sie auf, was beim Lauf des folgenden Programms gedruckt 
wird. 
10 S=0 
20 FOR K=1 TO 7STEP2 
30 S=S+K 
40 NEXTK 
50 PRINTS 


RUN 


er ne Ren 1 ee re ee u 


6. Vervollständigen Sie bitte das folgende Programm, durch das eine 
Tabelle zur Vorhersage des Bevölkerungswachstums ausgedruckt 
wird, und zwar in vorgegebenen Abschnitten über eine bestimmte 
zeitliche Periode (Jahre). Die Formel für das Bevölkerungswachs- 
tum lautet: 

Q=P(1 + R/100)N 
worin N die Anzahl der Jahre ist. 
Die Bevölkerungszahl soll gerundet auf die nächste ganze Zahl aus- 
gedruckt werden. 


10 REM***DATENEINGABE, UEBERSCHRIFTEN 

110 PRINT “ANFANGSBEVOELKERUNG”; : INPUT P 
120 PRINT “WACHSTUMSRATE”; : INPUT R 

130 PRINT “ANFANGSWERT VON N”; : INPUT A 

140 PRINT “ENDWERT VON N’'; : INPUT B 

150 PRINT “SCHRITTWEITE”; : INPUT H 

160 PRINT : PRINT “N”, “BEVOELKERUNG” : PRINT 
200 REM***BERECHNE UND DRUCKE DIE TABELLE 
210 


ee ne ee TEE Le u ee et 
EN Eee ee ee ee ae een 
es Be Be ET ee ee EEE rare an Bi a a 


Be EEE EEE ren ne ae are ie ee 


ANFANGSBEVOELKERUNG? 230 
WACHSTUMSRATE? 1 
ANFANGSWERT VON N? O 
ENDWERT VON N? 100 
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214 


SCHRITTWEITE? 25 


N BEVOELKERUNG 
0 230 

25 295 

50 378 

75 485 

100 622 

RUN 


ANFANGSBEVOELKERUNG? 205 
WACHSTUMSRATE? 1 
ANFANGSWERT VON N?O 
ENDWERT VON N? 100 
SCHRITTWEITE? 10 


N BEVOELKERUNG 
0 205 
10 226 
20 250 
30 276 
40 305 
50 337 
60 372 
70 411 
80 454 
90 502 
100 554 


Die oben angegebene Anfangsbevölkerung in Millionen Einwohnern 
gilt für die USA im Jahre 1970. Die Ergebnisse sind ebenfalls in 
Millionen Einwohnern ausgedrückt, aberundet auf die nächste 
Million. 


. Schreiben Sie ein Programm zur Berechnung und zum Ausdrucken 


der Summe der ganzen Zahlen von 1 bis N, wober der Wert von N als 
Antwort auf ein INPUT-Statement eingegeben wird. Ein Lauf könnte 
dann wie folgt aussehen: 


RUN 
GEBEN SIE MIR EINE ZAHL (N), UND ICH WERDE IHNEN 
DIE SUMME DER ZAHLEN VON 1 BIS N ERRECHNEN. 


WIE LAUTET N? 3 


DIE SUMME IST 6 (Da 1+2+3 = 6) 





WIE LAUTET N?5 
DIE SUMME IST 15 


WIE LAUTET N? 


(Da 1+2+3+4+5 = 15) 
usw, 


RE EDER RE ren ee gl 
en Kane Er En nn re REIT een 
Be Be Me a Re ar a re a en nee Kane 
er ee ne re a ae een ae ae Base 
en ne an Damen a a re een Re 

re Rinne wre Ran RE rn RE 
ee ee nen nee u ae ee 

Be rar meine nie a EEE Breee e  Fra 

Ba Pen ae rn run a rn 

9 EN Re en m a RE rennen 


Be Eee een a a en ae area 


8. Sehen Sie sich noch einmal das einfache Computerspiel zum Erraten 
von Zahlen an, das in Kapitel 1, Abschnitt 9 besprochen wurde. 
Bauen Sie eine FOR-NEXT-Schleife so in dieses Programm ein, daß 
der Spieler nur 8 Versuche hat, um die Zahl zu erraten. Hat er sie 
nach 8 Versuchen noch nicht gefunden, lassen Sie den Computer 


eine passende Mitteilung ausdrucken, bevor er mit einem neuen Spiel 
beginnt. 


Be LET En ing ne ee ers ie 
mein eeite nie u we ee ee ee ee ee een ren 
Burma nen Eee TE ee ne ee ee ee 
re MEET NR era er ee ee ee re ee else 
ae een we Ban ie ee ee ee ee ee 
re mama See LE ee ee are ee ee 
Bee REN re rn u le es ee ee se ee 

Bea mie ME ne ee a re rn ie ie 

Bern ae TEE ee ee ne te ee a ee 


nm aan ne a een ee ee RE 


9. Was wird bald auf dem Bildschirm erscheinen, wenn wir das folgende 
Programm speichern und dann ablaufen lassen? . cc eerann. 

100 FOR R=1 TO 23 

110 FOR C=1 TO 37 

120 S=INT(6*RND(1))+1 
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130 IF S=1 PRINT **"; 
140 IF S) 1 PRINT“ *; 
150 NEXT C 

160 PRINT 

170 NEXT R 

180 GOTO 180 


Antworten zum Eigentest 


Die Zahlen in Klammern geben die Abschnitte an, in denen der je- 
weilige Stoff behandelt wurde. 


1.10 
Gedruckt wird die Summe der Werte von K, die durch das FOR 


Statement defineirt werden. (K = 1,2,3und 4). (Abschnitte 1 — 7) 


2.24 | 
Ausgedruckt wird das Produkt der Werte von K, die durch das FOR 


Statement defineirt werden. (K = 1,2,3 und 4). 
(Abschnitte 1 — 6, 16) 


3.RUN 3. Die FOR-NEXT-Schleife (Zeilen 20, 30, 40) veranlaßt u 
"Computer, eine Reihe von N Sternen auszudrucken. Die rn 
wird ausgeführt für N = 1,2,3,... 10. (Abschnitte 1 — 6, 


4.10 INPUT “ERSTE ZAHL "; : INPUT A 
20 INPUT “LETZTE ZAHL "; : INPUT B 
30 PRINT 
40 PRINT “N”, "N2”, *'N3“ 

50 FOR N=ATO B 
60 PRINTN,N?t2,N?3 
70 NEXTN 


5.16 
Auch durch dieses Programm werden wieder die durch das FOR 


Statement definierten Werte von K addiert, die in diesem a 
1,3,5 und 7 lauten. (Abschni 


6.210 FOR N=A TO BSTEPH 
220 LET Q=P*(1+R/100) ? N 


(Abschnitte 9, 21) 


230 PRINT N, INT(O+.5) 
240 NEXT N 


Zeile 230 druckt Q, gerundet auf die nächste ganze Zahl. 
(Abschnitte 18 — 24) 


7.10 PRINT “GEBEN SIE MIR EINE ZAHL (N), UND ICH WERDE 

IHNEN“ 

20 PRINT “DIE SUMME DER ZAHLEN VON 1BISN 
BERECHNEN.” 

30 PRINT 

40 PRINT "WIE LAUTET N”; 

50 INPUTN 

55 LETS=O 

60 FOR W=1 TON 

70 LET S=S+W 

80 NEXTW 

90 PRINT “DIE SUMME LAUTET“;S 

100 GOTO 30 (Abschnitt 2) 

8. 100 REM***DIES IST EIN EINFACHES COMPUTER-SPIEL 

110 LET X=INT(100*RND(1))+1 

120 PRINT 

130 PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 

100.” 

140 PRINT “ERRATEN SIE MEINE ZAHL!” 

150 FOR A=1 TO 8: PRINT “IHR VERSUCH?“ : GOTO 190 

160 IFG (X THEN PRINT “VERSUCHEN SIE ESMIT EINER 
GROESSEREN ZAHL” : GOTO 190 

170 IFG)X THEN PRINT “VERSUCHEN SIE ES MIT EINER 
KLEINEREN ZAHL” : GOTO 190 

180 IF G=X THEN PRINT "SIE HABEN MEINE ZAHL ERRATEN.” 
: GOTO 110 

190 NEXT A : PRINT "SIE HABEN ZU OFT GERATEN. DIE 
ZAHL LAUTETE“ :X : GOTO 110 

(Abschnitte 2, 4) 


9. Auf dem Bildschirm werden die "Sterne,, aufgehen. Ungefähr 1/6 des 
Bildschirms wird Sterne enthalten, die restlichen 5/6 bleiben leer. Die 
Position der Sterne und Leerstellen wird willkürlich durch die Zeilen 
120, 130 und 140 festgelegt. 
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NOTIZEN 


KAPITEL 7 


Indizierte Variable 


In den Kapiteln 7 und 8 wollen wir Ihnen ein weiteres nützliches 
Hilfsmittel vorstellen, nämlich die indizierte Variable, wobei wir zu- 
nächst nur BASIC-Variable mit einem Index besprechen werden. 


Sie werden dabei beispielsweise lernen, wie man die Stimmen einer 
Umfrage zählt und wie man Geldbeträge akkumuliert oder zählt und sie 
in verschiedene Gruppen einteilt. Außerdem werden Sie noch mehr 
praktische Erfahrungen im Umgang mit FOR-NEXT-Schleifen sammeln. 


In diesem Kapitel werden viele neue Ideen für die Programmierung vor- 
gestellt. Arbeiten Sie das Kapitel daher langsam und sorgfältig durch. 
Experimentieren Sie auch mit Ihrem Computer; Sie werden feststellen, 
daß Ihnen die Anwendung dieser Techniken eine wesentlich größere 
Flexibilität gibt. Wenn Sie dieses Kapitel beendet haben, können Sie... 


© indizierte Variable mit einem Index erkennen und verwenden; 
© indizierten Variablen Werte zuweisen; 


® indizierte Variable verwenden, die auch im Index eine Variable 
haben; 


® eindimensionale Felder (Arrays) verwenden, um den Wert indi- 
zierter Variablen zu speichern; 


© das DIM-Statement verwenden, um dem Computer die maximale 
Größe der vom Programm verwendeten Arrays mitzuteilen. 


1. Das Konzept, das wir hier besprechen wollen, erfordert Ihre volle 
Aufmerksamkeit. Lesen Sie sich die Erklärungen langsam und sorg- 
fältig durch, während wir uns allmählich in das geheimnisvolle Reich 
indizierter Variabler einarbeiten. 


Bis jetzt haben wir nur einfache BASIC-Variable verwendet. Eine der- 
artige Variable besteht aus einem beliebigen Buchstaben von A bis 2; 
gefolgt von einer einzelnen Zahl zwischen O und 9. Nachfolgend sehen 
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Sie einige einfache Variablen: 
PR K P1I P2 


Jetzt wollen wir einen neuen Variablentyp einführen, und zwar die 


indizierte Variable. 
P(5) 


Variable Index 
gesprochen: P Index 5” 


Eine indizierte Variable besteht aus einem beliebigen Buchstaben von 
A bis Z, gefolgt von einem in Klammern eingeschlossenen Buchstaben 
von A bis Z, gefolgt von einem in Klammern eingeschlossenen Index. 
P(3) ist eine indizierte Variable, P3 nicht. 


Welche der folgenden Variablen sind indizierte? 
X(1) X X1 C(23) D 


X(1); C(23) 


Anmerkung: 
X, X1 und X(1) sind drei verschiedene Variable. Alle drei können somit 


gleichzeitig in einem Programm vorkommen. Das mag Sie zwar ver- 
wirren, nicht aber den Computer. Er wird sie ohne Schwierigkeiten 


unterscheiden. 


2. Eine indizierte Variable bezeichnet, wie auch die einfachen Variab- 
len, die wir bisher benutzt haben, einen Speicherplatz innerhalb des 
Computers, Sie können sich den Speicher als eine Schachtel vorstellen, 
in der man eine Zahl ablegen, also speichern kann. 


Eine Anzahl mehrerer indizierter Variabler wird auch als “Array’ be- 
zeichnet. Die nachfolgend abgebildete Menge indizierter Variabler ist 
ein eindimensionales Array und wird auch als ‘Vektor’ bezeichnet. 
In Kapitel 8 werden wir zweidimensionale Arrays besprechen. 
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P(0) 
P(1) 
P(2) 
P(3) 
P(4) 
P(5) 
P(6) 
P(7) 
P(8) 


Nehmen Sie einmal an, Sie seien der C 
i 1, S omputer und P(2) soll 36 sein. 
Nehmen Sie ‚Ihren Bleistift und tragen Sie die Zahl 36 in die mit Piz) 
eines en in der obigen Zeichnung ein. Führen Sie in 
cher Weise die folgenden Zuweisungen aus: L = 
De g s: LET P(3) = 12 und LET 


3. Indizierte Variable können auch Variable i 
3. Inc als Indizes verwenden. Die 
indizierte Variable Y(J) beispielsweise hat die Vari 
ariable Jal 
Wenn J = 1 dann ist Y(J)=Y(1) Ka 
Wenn J = 2 denn ist Y(J)=Y(2) 
Wenn J = 7 dann ist Y(J)=Y(7) 


Eimen Mom an, daß die Werte in den nachfolgend abgebildeten 
achteln den entsprechenden Variablen zugeordnet wurden. Be- 
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achten Sie, daß sowohl einfache als auch indizierte Variable vor- 


kommen. 
val_a_] zml[l_az 
Y(2) —3 Z(2) 92 


slL_ı | 
B 
val 5. | x eb 8 |] 
al 6 | sw»lLs_ |] olL_a_\ 


Schreiben Sie für jede der nachfolgenden Variablen den Wert hin: 


- Be MA)= 2... 
a SIERDER Y(B)= 20... 
YIO)= ...... KR nenn XB) = ...... 
ZA) S scan KBI= 2ucen. YlDI= 2.0... 
“ag 4 
_3 2 _3 
5 2 3 
4.7 92 6 


4.Bis jetzt haben wir nur einzelne Variable als Indizes a 
Der Index kann jedoch wesentlich komplexer sein. Hier se er ; 
zwei Beispiele, für die nochmals die Variablen und die Werte aus de 
“Schachteln‘ in Abschnitt 3 verwendet werden. 

Y(A+1) = Y(1+1) = Y(2) =—-3 

Y(2*B) = Y(2*2)=Y(4)=6 


Beachten Sie, daß die Ausdrücke innerhalb der Indexklammern, unter 
Verwendung der gleichen BASIC-Regeln für die Arithmetik, wie in 
einem PRINT-Statement oder innerhalb der Klammern einer Funktion 
berechnet werden. 


Vervollständigen Sie jetzt bitte die nachfolgenden Beispiele in e 
gleichen Weise, wie wir es Ihnen eben gezeigt haben. Schreiben ie 
sowohl den berechneten Wert für den Index als auch den der indizierten 
Variablen mit diesem Index zugewiesenen Wert hin. 


(Beziehen Sie sich dabei auf die Zahlen in Abschnitt 3.) 
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Y(A+2) = Y(1+2) = Y(3) =5 

Y(2*A-1) = Y(2*1-1) = Y(2-1) = Y(1)=4 
Y(A+B) = Y(1+42) = Y(3)=5 

Y(B*C-D) = Y(2*3-4) = Y(6-4) = Y(2) = _3 
Y(A+3) = Y(1+3) = Y(4) =6 

Y(D-3) = Y(4-3) = Y(1)=4 

Y(D-C+A) = Y(4 —3+ 1) = Y(1+1) = Y(2) = _3 
YIIC+D)—-(A+B)) =Y((3+4)-(1+2)) = Y(7-3) = Y(4)=6 






Die Werte für A —D finden 





5. Sie werden sich sicher noch daran erinnern, daß wir dem Computer 
mitteilen mußten, wieviel Platz er in seinem Speicher für die Strings 
reservieren soll, die den String-Variablen in Ihrem Programm zuge- 
wiesen werden. In gleicher Weise müssen Sie auch indizierte Variable 
für die maximale Anzahl von Werten dimensionieren, die einer einzel- 
nen indizierten Variablen zugewiesen werden sollen. Das heißt, Sie 
müssen dem Computer durch ein DIM-Statement den größten Index 
mitteilen, den er für eine indizierte Variable zulassen soll. DIM ist die 
Abkürzung für die “Dimension” eines Arrays indizierter Variabler. Die 
DIM-Statements müssen in | hrem Programm so angeordnet werden, daß 
ihre Ausführung erfolgt, bevor die indizierten Variablen tatsächlich im 
Programm benutzt werden. Andernfalls erfolgt eine Fehlermeldung 
und die Programmausführung wird angehalten. Wie man ein Array 
dimensioniert ist anschließend zu sehen. Beachten Sie die Ähnlichkeit 
mit der Dimensionierung einer String-Variablen. 


100 DIM X (100) 


die Variable, für die Platz 


maximal zulässiger Index 
reserviert werden soll 
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Sie in der Tabelle S. 222 oben; 


Das obige DIM-Statement spezifiziert eine indizierte Variable die als 
höchsten Index ............- haben kann. 


6. Nehmen wir einmal an, wir möchten festlegen, daß der maximale 
Index 50 ist. Bitte schreiben Sie dafür ein DIM-Statement. 


VO ne a an a a ER EN a ie En I a a as 


105 DIM X (50) 


7. Wie können indizierte Variable nun zu einr Vereinfachung und Ver- 
besserung der Programmierung in BASIC beitragen? Eine sehr häufige 
Anwendung indizierter Variablen besteht beispielsweise darin, eine 
Liste von Zahlen, die über INPUT- oder READ-Statements eingegeben 
wurden, zu speichern. Das kann mit einer FOR-NEXT-Schleife er- 
folgen. Die Kontrollvariable läßt sich auch als Variable für den Index 
einer indizierten Variablen verwenden, was zu Folge hat, daß der Index 
bei jedem Schleifendurchlauf um 1 erhöht wird. Um dies zu ver- 
deutlichen, verwenden wir noch einmal das bereits bekannte Programm 
“DIE TEUERSTE ADDIERMASCHINE. 


100 REM***DIE TEUERSTE ADDIERMASCHINE 
105 REM *** DER WELT 

110 DIM X(10) 

120 PRINT “WIEVIELE ZAHLEN”; 
130 INPUT N 

140 PRINT 

150 FORK=1 TON 

160 PRINT "'X="; 

170 INPUT X 

180 X(K)=X 

190 NEXT K 

200 F=0 

210 FORK=1 TON 

220 LET T=T+X(K) 

230 NEXT K 

240 PRINT "DIE SUMME IST"; T 
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RUN 

WIEVIELE ZAHLEN? 5 
X=?37 

X=?23 

X=?46 

X=?78 

X=?59 

DIE SUMME IST 243 


Im obigen Lauf ist N glei 
: gleich 5. Daher werde a 
eingegeben und in X(1)bis........ Hatehchere BISHER DE 


8. Sehen Sie sich vor allem di i 

e Zeilen 170 und 180 im vori - 
zu noch einmal an. Zuerst wird der durch INPUT re, ee 
er einfachen, numerischen Variablen X zugeordnet. Dann wird der 


gleiche Wert der indizi ; ; 
XIKI=X. indizierten Variablen X(K) zugewiesen und zwar durch 


Nehmen wir an, der Computer arbeit 
und hat gerade die FOR-NEXT-Schl 
schlossen. Die vom Operator ein 
dermaßen gespeichert, 


et das Programm in Abschnitt 7 ab 
eife in den Zeilen 150 bis 190 abge- 
gegebenen Zahlen werden jetzt folgen- 


x(4) 
xis) [0 | 


le er os mit Zeile 200 fortzufahren. Dieses Statement 
ıe Variable T, d.h. es weist T den ersten Wert z i 

3 u. Sch 

Sie den Wert für T hin, nachdem die Zeile 200 ausgeführt wurde. 
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9. Als nächstes wird der Computer die FOR-NEXT-Schleife in den Zeilen 
210 bis 230 ausführen. Wie oft wird diese Schleife durchlaufen? ...... 


fünfmal, da Zeile 210 sagt: FORK=1 TON undN gleich 5 ist. 


10. Die FOR-NEXT-Schleife in den Zeilen 210 — 230 wird fünfmal aus- 
geführt, zuerst für K = 1, dann für K= 2, K= 3und K = 4, schließlich 
für K = 5. Sehen wir uns einmal Zeile 220 an, in der K als Index benutzt 
wird. 


220 LET T=T+X(K) 


Dieses Statement weist den Computer an, den Wert von X(K) zum alten 
Wert von T zu addieren und dann das Ergebnis als neuen Wert von T 


nehmen. 


Wie lautet der Wert von T, nach Ausführung von Zeile 220, für K = 1? 
u KR E . rK ai rK RR a, Tür Kae? 


37,60, 106, 184, 243 


11. Lassen Sie uns einmal die bereits bekannte "teuerste Addierma- 
schine der Welt’ dazu verwenden, die ganzen Zahlen von 1 bis 12 zu 
addieren. 


RUN 
WIEVIELE ZAHLEN? 12 
ı 


xX=?1 

{=?2 
xX=?3 
x=?4 
X=?5 
X=?6 
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X=?7 
X=?8 
X=?9 
X= ?10 
X=?11 
ERROR-— AT LINE 180 


Bam) erhalten wir eine Fehlermeldung, die uns sagt, daß wir einen 
alschen Index verwendet haben. Welches war der größte Index für 


X(K), den der C ; . 
Be EFREER noch akzeptierte, vevor er eine Fehlermeldung 


12. Ändern Sie die Zeile 110 durch fol 
Be 2 gendes Statement i 
die Möglichkeit haben, mehr Zahlen einzugeben: N 


110 DIM X(100) 


Lassen Sie jetzt das Programm nochmals ablaufen, und zwar unter Ver- 
wendung der 12 Zahlen, die uns zuvor Schwierigkeiten bereitet haben 
RUN 
WIEVIELE ZAHLEN? 12 

X=?1 

X=?2 

X=?3 

X=?4 

X=?5 

X=?6 

X=?7 

X=?8 

X=?9 

X =? 10 

X=?11 

X=?12 

DIE SUMME IST 78 


Die Summe wievieler Z i 
ahlen maximal kann das P j 
BBCHNEN? ua. nz 
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i rfolgt Ihre Speicherung 
100. Wenn 100 Zahlen eingegeben werden, e r 
in X(1) bis X(100). Diese Grenzeist durch das DIM-Statement in Zeile 
110 festgelegt. Wir können das Programm natürlich dazu verwenden, 
um die Summe von weniger als 100 Zahlen zu berechnen. 


13. Die Dimensionen eines DIM-Statements können auch durch eine 
Variable zugewiesen werden. Sehen Sie sich dazu die folgenden Bei- 
spiele an: 


DIM X(N) DIMA(B) DIM D(Y+2) 

Die dürfen ein Array während eines Programmlaufs jedoch nur einmal 
dimensionieren. Der Computer wird Ihnen sonst eine Fehlermitteilung 
ausgeben und die Programmausführung stoppen, wenn er für das ar 
Array zum zweitenmal zu einem DIM-Statement gelangt und währen 
des gleichen Laufs versucht, das Array umzudimensionieren. 


ie si i - d den Beginn 
Sehen Sie sich das anschließende Programm-Segment un 
des Laufs an. Wir haben Zeile 110 gelöscht und das DIM-Statement an 
den Anfang von Zeile 150 gestellt. 


120 PRINT “WIEVIELE ZAHLEN”; 
130 INPUT N 

140 PRINT 

150 DIM X(N) : FOR K=1 TON 


RUN 
WIEVIELE ZAHLEN: 8 


Wie groß wird die dimensionierte Größe des Arrays während dieses 
Programmlaufssein?' „zen sr sunenesennn sun nenne ne eh ea 
8 (das ist der Wert, der N durch das INPUT-Statement zugewiesen 
wurde) 


228 


14.Wo könnte DIM X(N) in dem in Abschnitt 13 gezeigten Programm- 
Segment noch angeordnet werden? 


ee nen Eraser ER Winden 


In Zeile 130, hinter dem INPUT-Statement, oder in Zeile 140 vor oder 
nach PRINT, Beachten Sie aber, daß das DIM-Statement an einer Stelle 
des Programms angeordnet werden muß, an der bereits der INPUT- 
Wert eingegeben wurde, aber vor der FOR-NEXT-Schleife, sodaß das 
Array X(K) während des gleichen Laufs nur einmal dimensioniert wird. 
Das Statement DIM X(N) könnte auch in einer Zeile für sich allein 
stehen, unter Verwendung einer Zeilennummer zwischen 130 und 140 
oder zwischen 140 und 150. 


15.Sehen Sie sich noch einmal die Zeilen der ersten FOR-NEXT- 
Schleife (150 — 190) des Programms in Abschnitt 7 an. Der erste 
Wert, der K zugewiesen wird, ist 1, sodaß X(1) die erste indizierte 
Variable ist. Da das Array mit X(0) beginnen könnte, kann ein durch 
DIM X(100) dimensioniertes Array wieviele Werte aufnehmen? 


FOR K=0 TON 


16. Statt eines INPUT-Statements zur Eingabe der Werte für X(1), 
X(2) usw. können wir auch READ- und DATA-Statements benutzen. 
Den Wert für N sowie die Werte für X(1) bis X(N) setzen wir dann 
folgendermaßen in ein DATA-Statement ein: 


DATA 5, 37, 23,46, 78, 59 


Wert von N Werte für X(1) bis X(5) 


100 REM***DIE TEUERSTE ADDIERMASCHINE DER WELT 
110 REM X(100) 

200 REM***LESEN VON N UND X(1) BIS X(N) 

210 READ N 

220 FOR J=1 TON 

230 READ X : X(J)=X 

240 NEXT J 
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300 REM***DRUCKEN DES WERTES FÜR N UND DES X-ARRAYS 
310 PRINT “N=";N 

320 PRINT “X(1) BIS X(”';N;“) LAUTEN: ” 

330 FOR K=1 TON 

340 PRINT “ "; X(K); 

350 NEXTK 

360 PRINT 

400 REM***SUMME DER WERTE DES X-ARRAYS 
410 T=0 

420 FORL=1 TON 

430 T=T+X(L) 

440 NEXTL 

500 REM***DRUCKEN DER SUMME; NEUER START 
510 PRINT “DIE SUMME IST ‘; T 

520 PRINT 

530 GOTO 210 

900 REM***HIER SIND ZWEI DATENSAETZE 

910 DATA 5,37,23,46,78,59 

920 DATA 12,1,2,3,4,5,6,7,8,9,10,11,12 


In der ersten FOR-NEXT-Schleife (Zeilen 200 -: 240) haben wir J 
als Index benutzt. Diese Wahl erfolgte völlig willkürlich. 

Welchen Index verwendeten wir in den Zeilen 330 bis 350? 2222. ... 
und in den Zeilen 420 bis AAO? .. nz mac eeeeennnennnnnereeen 


17. Hätten wir, wenn wir das wollten, J auch in allen drei Schleifen 
als Index verwenden können? ... 2.2 c cn 


Ja, denn es handelt sich hier um drei völlig getrennte, voneinander 


verschiedene FOR-NEXT-Schleifen. Wir hätten jede Variable als Index ” 


verwenden können, außer N, T oder X. 


18. Die folgenden Fragen beziehen sich noch auf das Programm in Ab- 
schnitt 16. 


a) Welches Statement weist, beim zweiten Datensatz, den ersten Wert 
im DATA-Statement einer Variablen zu? . ce c on 


230 


b)Welche Statements weisen den Rest der Daten einer indizierten 
Variablen zu? 


EEE BR ET I DE a DE RRET R aetee e ee 


c) Welches Statement druckt die im Array gespeicherten Werte, statt 
der Werte aus dem DATA-Statement? 


DEE EEE ee ie re 


BER Te Be TREE 5 erenmiiezeae BT een 


a) 210 READ N 

b) 230 READ X : X(J)=X 
c) 340 PRINT X(k); 

d) 430 T=T+X(L) 


Anmerkung: 


Zum besseren Verständnis von Zeile 230 sehen Sie sich bitte noch 
einmal Abschnitt 8 an. 


19. Nehmen wir an, wir lassen das Programm in Abschnitt 19 ablaufen. 
Schreiben Sie bitte auf, wie ein RUN aussehen wird (Hinweis: über- 
prüfen Sie alle PRINT-Statements). 

RUN 


ER 809 Niemann are nn ae EEE TORTE Aus ara are 
u 2 en ee en Ir DATE a ran er na ar 
BR N ee I EEE Fan a ET a area 
jr 9 Hama en na nn a EEE ee Bee 
ee nn en rn en eine an nee Hin ananee 
Bee ner nennen ee 
see 2 naar ERTERR Dir a a a e y 
era aa a nen Ra eh nen 

er nr meer er ea TE a ne ee 


Be re en a De nen rn a en iR 


X(1) BISX(5) LAUTEN: 


123456789012 
DIE SUMME IST 78 


ERROR— 6 AT LINE 210 


231 


N=12 
X{1) BIS X(12) LAUTEN: m|[ | ram 7] Re al ] 


234508 7883 m a 3 ee a 


DIE SUMME IST 78 R(1) Für R=1 ist R+2=1+2=3 
ERROR- 6 AT LINE 210 u Für R=2 ist R+2=2+2=4 

Ra) | 5 | Für R=3 ist R+2=3+2=5 
20. Damit Sie indizierte Variable noch besser verstehen und beim R(4) De 1] Für R=4 ist R+2=4+2=6 


Schreiben Ihrer Programme anwenden können, wollen wir uns hier 
noch einmal etwas näher ansehen, wie der Computer arbeitet, wenn er 22 j s 
ar ö \ ö . Lassen Sie un i ; ental ss 
es mit indizierten Variablen zu tun hat. T n Sie s dies noch an einem weiteren Beispiel üben. 
ragen Sie bitte in die freien Felder die jeweiligen Werte nach der 


ß Ausfü E x TE 
Bitte tragen Sie für das folgende Segment eines Computer-Programms in usführung der FOR-NEXT-Schleife ein. 


den leeren Feldern die Werte für D(G) ein, nachdem die FOR-NEXT- 10 DIM P(10) 

Schleife ausgeführt wurde. 20 FOR N=1 TO6 
30 P(N)=2*N 

10 DIM D(3) 40 NEXTP 


20 FOR G=1T03 
en ml] | | al] 
oa |[__ ] BL] Po)[ |] 


DI) [1] FürGs1 ist 2*G--1=2*1--1=2—1=1 en[ 2 ] pa[ 4 ] ra[ 6 ] 
D(2) Für G=2 ist 2*G-1=2*2—1-4—1=3 pa [ 8 ] P(5) P(6) 
DW) | 5 _ | Fürßs3ist 2*6-1=2*3-1-6--1=5 


aaa wir an, daß in C(1) bis C(5) folgende Zahlen gespeichert 
sind: 


cm| 18] C(2) 
21. Tragen Sie bitte für die folgende FOR-NEXT-Schleife in den Le] [| c(3) 
Feldern R(1) bis R(4) die jeweiligen Werte ein, nachdem die Schleife C(4) C(5) 


ausgeführt wurde. (Denken Sie daran, daß R und (R) verschiedenen 


Variable sind.) | Was wird ausgedruckt, wenn die folgende FOR-NEXT-Schleife ausge- 
führt wird? 

10 DIM R(10) 

20 FOR R=1 TO4 100 DIM C(10) 


110 FOR A=1 TO5 


30 R{R)=R+2 
120 PRINT “ ";C(A); 


40 NEXTR 
232 233 


130 NEXT A 


een inne ae rei ee ie ae ee 


24. Nehmen wir an, daß die Zahlen in C(1) bis C(5) gespeichert sind, 
wie es Abschnitt 23 zeigt. Was wird dann bei Ausführung der folgenden 


Schleife ausgedruckt? 

100 DIM C(10) 

110 FOR A=5 TO 1 STEP —1 
120 PRINT ” ";C(A); 

130 NEXT A 


ae KU ER RER ae een AI EEE 9 Re ET RE Ting ae ME 


Die Zahlen werden in umgekehrter Reihenfolge ausgedruckt. Wenn Sie 
das nicht herausbekommen haben, sehen Sie sich noch einmal die 
Abschnitte 18 und 19 in Kapitel 6 an. 


25. Nehmen wir einmal an, eine Wahl steht bevor und Sie haben, unter 
Verwendung der nachfolgenden Fragen, bei Ihren Freunden eine 
Umfrage durchgeführt: 


Für wen werden Sie in der kom- 
menden Wahl stimmen? Kreisen 
Sie die Ziffer links vom jeweiligen 


Kandidaten ein. 


1. HANS SCHMITT 
2. CLAUDIA MUELLER 





Wir wollen jetzt ein Programm zum Zählen der Stimmen schreiben, die 
jeder Kandidat bei der Umfrage erhalten hat. Sie haben 35 Antworten 
auf Ihre befragung vorliegen, von denen jede entweder eine “1 oder 
eine “2“ ist. Tragen Sie die Abstimmergebnisse zuerst in DATA-State- 
ments ein. 


1 
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910 DATA 1,1,2,2,2,1,1 2 
920 DATA 1,2,1,1,2,2,1,1,1,2, 
930 DATA 1,1,2,1,—-1— (1 ist das Daten-Ende-Flag!) 


Wieviele Stimmen hat Hans Schmitt erhalten? 


re nee ie 


een wi le ne ee 


27.Um die beiden letzten Fragen zu bean ie si 

beider zte tworten, haben Sie sicher- 

lich zuerst die Einsen in den DATA-Statements gezählt, um heraus- 

zufinden, wieviele Stimmen Hans Schmitt erhalten hat. Anschließend 

ie die "Zweien”gezählt, um die Stimmen für Claudia Müller zu 
n. 


Ihr Computer kann Ihnen diese Arbeit jedoch abnehmen und die 
Stimmen zählen, indem er indizierte Variable verwendet, um die 
Gesamtsummen der “Einsen“ und “Zweien‘ in den DATA-State- 
ments zu ermitteln. Wenn er zum "Daten-Ende-Flag“ gelangt, hört 
er mit dem Zählen auf und druckt die Ergebnisse. Hier ist das Pro- 
gramm zum Zählen der Stimmen. 


100 REM***STIMMEN-ZAEHLPROGRAMM 
110 REM***INITIALISIERUNG 
n ea C(2) : C(1)=0 : C(2)=0 

M***LIES UND ZAEHLE DIE 
210 READ V 
220 IF V=-1 THEN 310 
230 C(V)=C(V)+1 
240 GOTO 210 
300 REM***DRUCKE DIE ERGEBNISSE 
310 PRINT “HANS SCHMITT:“; C(1) 
320 PRINT “CLAUDIA MUELLER: “; C(2) 
910 DATA 1.1.22.2,1.1,222,1.1,1,2 
920 DATA 12:1,122,1.1.12.12.22 
930 DATA 1,1,2,1,—1 
RUN 
HANS SCHMITT: 17 
CLAUDIA MUELLER: 15 
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Ist das DIM-Statement wirklich notwendig? Warum ja, oder warum 
nicht, was;meinen’Sle? „ern nun a une nn ame ar nem ee 


Ja; Arrays müssen immer dimensioniert werden. 


28. Welche Werte haben C(1) und C(2), nachdem der Computer Zeile 
120:a0sg8fUNTE Nat ar mern 6 nee. marnsileie ar wait fr make wre 


Beide haben den Wert O. Dabei handelt es sich um die Anfangswerte, 
bevor mit dem Zählen der Stimmen begonnen wird. Wir nennen diesen 
Vorgang Initialisierung, wie es auch durch das REM-Statement in Zeile 


110 angedeutet wird. 


29. Wenn Ihre Programme so lang werden, daß sie anfangen, die 
Speicher-Kapatzität Ihres Computers zu übersteigen, dann lassen Sie 
die REM-Statements weg, um Platz zu gewinnen. Dabei sparen Sie 
auch noch Zeit für das Abschreiben, wenn Sie die Programme nicht für 
spätere Verwendung speichern wollen. 


Welche Statements könnte man im Programm aus Abschnitt 27 weg- 
lassen, ohne daß die einwandfreie Arbeitsweise beeinträchtigt wird? 


Sauer heuer een iur here re 


100, 110, 200, 300 


30. Sehen Sie sich jetzt noch einmal das Statement mit der Zeilen- 
nummer 230 aus dem vorigen Programm an: 

230 LET C(V)=C(V)+1 

Bis auf die Tatsache, daß bei diesem Statement indizierte Variable 


verwendet werden, ist es äquivalent zu einem Statement, das bereits 
in früheren Programmen, unter anderem zum Zählen, verwendet 


wurde: 
LET N=N+1 


Achten Sie darauf, wie der variable Index von C dazu verwendet wird 
um zu bestimmen, ob der Wert von C(1) oder der Stand von C(2) um 
eins erhöht wird. Da V nur zwei Werte haben kann, nämlich entweder 
1 oder 2, erfüllt Zeile 230 tatsächlich einen doppelten Zweck. Abhängig 
vom jeweiligen Wert ist dieses Statement äquivalent zu. 

LET C(1)=C(1)+1 oder LET C(2)=C(2)+1 

Welche Werte hat der Computer für C(1) und C(2) beim Ablauf des 
Programms, nach dem Lesen und der Verarbeitung der ersten Stimme 


gespeichert? (Das heißt, die Zeilen 210 bis 230 wurden für di 
i r % n für d 
Stimme im ersten DATA-Statement ausgeführt.) DR 


u. LI 2 0 


Welche Werte werden für C(1) und C(2) gespeichert, nachdem die 
zweite Stimme gelesen und ausgewertet wurde. 


" DJ 9 eo ng 


Welche Werte sind in C(1) und C(2) nach dem Lesen und der Ver- 
arbeitung der dritten Stimme gespeichert? 


31. In dem Programm, das wir diskutiert haben (Abschnitt 27), prüft 
Zeile 220 mit folgendem Statement, ob das Daten-Ende-Flag vorliegt: 


IF V=—-1 THEN 310 


Wenn wir die Zeilen 220 und 230 vertau j 
schen 
folgendermaßen aus: ‚ sieht das Programm 


210 READ V 
220 LET C(V)=C(V)+1 
230 IF V=-1 THEN 310 


237 


240 GOTO 210 


a) Wie lautet jetzt der letzte Wert, der V aus dem een 
zugewiesen wird? ...uc2eeeeeer nn BEER RE? ; i ’ 
b) Wenn der Computer diesen Wert für V in Zeile 220 verwenden würde, 
wie lautete dann die indizierte Variable? ......::zcecrreene0 I 
c) Welche Fehlermeldung würde unser Computer ausgeben, da negative 
Indizes nicht erlaubt sind? ...:.--::2s02eseceseeener nennen nn 


c(-1) >= 
=. R- falscher Index. Moral: Achten Sie darauf, wo Sie die Ab 


ü infü Die beste Stelle ist gewöhn- 
frage für das Daten-Ende-Flag einfügen. i 
Iich direkt hinter dem READ- oder INPUT-Statement, in dem das 


Flag auftauchen kann. 


32. Nehmen wir einmal an, es wird folgende Abstimmung durchgeführt: 


Für welchen Kandidaten würden 
Sie bei der nächsten Wahl stimmen? 
Kreisen Sie die Zahl links von Ihrem 


Kanditaten ein. 
1. Hans Schmitt 
2. Claudia Müller 
3. Keine Meinung 





Die Ergebnisse dieser Umfrage sehen Sie hier: 


222121152, 
21.13.1322; 
1,1.2.1241,1 | 
Modifizieren Sie das Stimmen-Zählprogramm aus Abschnitt 2 0 5 
sich diese Daten damit verarbeiten lassen. Sie ne = a 
einfügen, um C(3) auf 0 zu en = u a. un 
i immen mit "Keine k . De: 
EEE res = die DATA-Statements für die neuen Daten, wi 
das DIM-Statement ändern. Hier sehen Sie, wie der Lauf ausse 


sollte. 
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a ab 
ni 
ww 


‚2,1,3 








RUN 

HANS SCHMITT: 17 
CLAUDIA MUELLER: 12 
KEINE MEINUNG: 6 


Schreiben Sie hier Ihr Programm hin: 


nee Vena Keane ann u TEE WE En re a ae 
EN a en a EEE ne aan re 
ERITREA Er a PAARE 
een 
ER EN Be rn an een ann 
TR Te EL ar EEE nn ra EEE Frame 
VE En rn aa BETEN ie aaa a ve 
RER Re ee a a  EREE as a re Ha a 
een mn Be m N ER rn en zn ge Er rennen 
ERENTO rn ae 
ER I Ban ie u a a N a nn 
En KB a ee a RE ne aan 
SER RN EA nn a rn EEE a we een Da 
Eee ne m u re re RETTET nn 
RE EI On a a a EEE ER ce ern 
er a nn nr aa a. 


100 REM***STIMMEN-ZAEHLPROGRAMM 
110 REM***INTITIALISIERUNG 

120 DIM C(3) 

130 C(1)=0 : C(2)=0 : C(3)=0 

200 REM***LIES UND ZAEHLE DIE STIMMEN 
210 READ V 

220 IF V=-1 THEN 310 

230 C(V)=C(V)+1 

240 GOTO 210 

300 REM***DRUCKE DIE ERGEBNISSE 

310 PRINT "HANS SCHMITT:”; C(1) 

320 PRINT “CLAUDIA MUELLER: “; C(2) 

330 PRINT "KEINE MEINUNG: ”‘; C(3) 

910 DATA 222,121.1,21.132,13 

920 DATA 2,1,1 3,1,3,2,2,1,1,3,2,1,3 

930 DATA 1,1 2,1,2,1,1,—1#—— (haben Sie an das Flag dedacht?) 
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33. Nehmen wir an, wir führen eine Umfrage mit vier möglichen Ant- 
worten, oder gar fünf oder sechs durch. Statt jeweils ein neues Pro- 
gramm zu schreiben, wollen wir eins schreiben mit dem sich die 
Stimmen einer Berfragung mit N möglichen Antworten zählen lassen. 
Der Wert von N muß dann in einem DATA-Statement vor den tat- 
sächlichen Antworten bzw. Stimmen stehen. Die Daten für die Be- 
fragung in Abschnitt 25 würden dann beispielsweise folgendermaßen 
aussehen. 


REM***DIE DATEN 

REM***DER ERSTE WERT IST DIE ZAHL DER 
REM***MOEGLICHEN ANTWORTEN 

910 DATA2 

920 DATA 1,1,2,2,2,1,1,2,2,2,1,1,1,2 

930 DATA 1,2,1,1,2,2,1,1,1,2,1,2,2,2 

940 DATA 1,1,2,1,—1 


900 
901 
902 


In Zeile 910 steht der Wert für N. In diesem Fall ist N=2 und die 
möglichen Antworten lauten 1 und 2, Wie müßten die Ergebnisse der 
Befragung in Abschnitt 32 in DATA-Statements eingefügt werden? 


900 REM***DIE DATEN 
901 REM***DER ERSTE WERT IST DIE ZAHL DER 
902 REM***MOEGLICHEN ANTWORTEN 


BO, 1 au anne an aan a wann m a ua aa ra ah 


. .. .... “ie . .e.. . . ... 
anne Eee . 
... [37 . D .or00. . 
... .. . 


910 DATA 3 

920 DATA 2,2,2,1,2,1,1,2,1,1,3,2,1,3 
930 DATA 2,1,1,3,1,3,2,2,1,1,3,2,1,3 
940 DATA 1,1,2,1,2,1,1,--1 


Diesmal ist N=3 (Zeile 910) und die möglichen Entscheidungen sind 1, 
2 oder 3. 
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1. Dimensionierung des maximal möglichen Index von C., Erinnern Sie 
sich daran, daß N kleiner oder gleich 20 ist. 
2. Lesen des Wertes von N. 


3.C(1) bis C(N) auf 0 setzen. (Verwenden Sie dazu eine FOR-NEXT- 
Schleife.) 


4. - und Zählen der abgegebenen Stimmen, bis ein Flag gelesen 
wird, 


5. Ausdrucken der Ergebnisse, so wie es das folgende Beispiel zeigt: 
Beispiel: N=2 


Beispiel: N=5 
RUN RUN 
ANTWORT 1:17 ANTWORT 1:12 
ANTWORT 2:15 ANTWORT 2:7 
ANTWORT 3:9 
ANTWORT4:9 


ANTWORT 5 : 10 


Die beiden abgebildeten Programmläufe wurden mit nachfolgenden 
Datensätzen erzeugt: 


910 DATA 2 

920 DATA 1,1,2,2,2,1,1,2,2,2,1,1,12 
930 DATA 12,1,1,2,2,1,1,1.2.1.22.2 
940 DATA 1,12,1.—1 


910 DATA5 
920 DATA 4,3,4.2.4,1 ‚1,8,5,3,5,4,5,1 


940 DATA 2,3,1,5,4,1,1,1,2,3,1,4,1,5 
950 DATA 1,2,3,4,1,—1 


Schreiben Sie jetzt Ihr eigenes Programm. 


(Die DATA-Stat 
brauchen Sie nicht mehr vorzusehen.) PAIOTIER 


ER EEE a ng ae 
Te eu 
“ee Eee ... 
. wor 


a BC a 
EEE EEE a a ee 
Eee 


ee a 
wenn a ats 
DR Fre eng 
de NO ENT 
. 


a ee ne ee here es ee in he ee ee en ie 
a RE ee ae ui ee ee ar nee ee es ee 
Pier Bar a Dar ar a ar var Bar ar or ar Bar Bor Bor BE Bar Vor Dar Vor Vor Dal BE Dur Bor Dur DEE HL HL Bor Kor Bu Doc TEL EL BEL Dur Kur Bu Der Bar Zur Bar ur Kur Bar Dar Bar Baer Dur Ber Zur Due Bu Zur 
PR I Er ar or ar vor a Dr Var yo Ur Bar Dr ur DE DE Er Sor ED or DL DL vor Tor Der Yor m Dur Yr Sr Tor Bor Br Bar Bar Br Sr Dar DL Zur Ber SEE Ber Bar Dar Dar Sur zer Ber Zur zur Ze 


100 REM***STIMMEN-ZAEHLPROGRAMM 

110 REM***INITIALISIERUNG 

120 DIM C(20) : READN : FOR K=1 TON :: C(K)=0 : NEXT K 
200 REM***LESEN UND ZAHLEN DER STIMMEN 

210 READ V : IF V() —-1 THEN LET C(V)=C(V)+1 : GOTO 210 
300 REM***AUSDRUCKEN DER ERGEBNISSE 

310 FOR K=1 TON : PRINT “ANTWORT”; K; ";"'; C(K) : NEXT K 


35.In den Abschnitten 25 — 34 war das Zählen von Stimmen das 
zentrale Problem. Dazu wurde bei jedem Schleifendurchlauf, in dem 
Daten gelesen werden, eine 1 zu einem Array-Element hinzuaddiert 
(LET C(V) + 1). Nahezu jedes Zählproblem kann auf eine Weise be- 
handelt werden, die mit den Lösungen in Abschnitt 34 vergleichbar ist. 


Eine weitere, ähnliche Anwendung einfacher, eindimensionaler Arrays 
besteht darin, Gegenstände oder auch Geld zu zählen. 


Um dies an einem praktischen Beispiel zu erproben, wollen wir einmal 
annehmen, Ihr Computerclub möchte ein neues Terminal kaufen, 
das als Bausatz 1.200,— DM kosten soll. Die Frage ist nur, woher soll 
das Geld dafür kommen? Da die meisten Mitglieder noch sehr jung sind, 
oder in die Schule gehen, wird beschlossen, Schockoladenriegel an 
Mitschüler oder Freunde für 1 DM pro Stück zu verkaufen, die der Club 
für 55 Pfg. einkauft. Ein ganz hübscher Profit also. Sie sollen die Buch- 
führung übernehmen und geben dazu jedem Clubmitglied eine Nummer. 
Immer wenn eins der Mitglieder vorbeikommt, um neue *'Ware’’ abzu- 
holen, schreiben Sie seine Nummer und die Anzahl der Schokoladen- 
riegel auf. Das Geld wird dann später abgerechnet. 


Hier sind die Indentifikations-Nummern der Club-Mitglieder. 


1. Jerry 5. Karl 
2. Bobby 6. Mimi 
3. Mary 7. Doug 
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4. Danny 8. Scott 


B men wir an, Danny holt 6 Schokoladenriegel. Sie notieren dann 
‚6. Die 4 ist Dannys Identifikationsnummer für den Computer, 6 ist 

die Anzahl der Schikoladenriegel. Wenn Doug 12 Riegel mitnimmt kon 

tieren Sie ..... Holt Mary 6 Riegel, so lautet Ihre Aufzeichnung fi 


Beh einigen Wochen haben Sie bereits eine ganze Reihe derartiger 

otierungen vorliegen, so daß es Zeit wird, einmal aufzuaddieren 
wieviel Geld bisher zusammengekommen ist. Die in Ihren Aufzei h- 
nungen enthaltenen Informationen werden dazu in DATA-State si 
eingesetzt. Sie könnten die Daten auch unter Verwendung von INPUT- 
Statements eingeben, aber das würde viel zu lange dauern. 


900 REM***DATENPAARE: INDENT 
men IFIKATIONS-NUMMER UND 


910 DATA 4,6,7,12,3,6,1,8,4,5,5,3,8,20 


Un sehen Sie, daß Danny noch- 


mals 5 Riegel geholt hat. 
920 DATA 24,38 6,6,5,10,7,12,8,4,1,3 


Be. Mary hat weitere 8 geholt. 


930 DATA —1, —1 


a) Aus wieviel Zahlen besteht j 
jeder Datensatz? 
b) DATA 6,6 bedeutet: 22 eaeaccn.. . ü 


c) Aus wieviel Zahlen besteht das End-of- 
Here nd-of-Data-Flag? 


b) Mimi nahm 6 Riegel 

c) Zwei. Jedes Daten-Element besthet aus zwei Zahlen. Das heißt, daß 
mit jedem READ-Statement zwei Zahlen gelesen werden. Würde 
daher für die beiden Variablen im READ-Statement nur ein Fla 
vorgesehen werden, erhielte man eine Fehler-Meldung. i 
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37. Während Sie noch dabei sind, die Daten einzugeben, kommt 
Bobby vorbei und holt nochmals sechs Riegel. Schreiben Sie auf, 
wie man diese Daten hinzufügen kann, ohne eins der bereits vor- 
handenen DATA-Statements umzuändern. Verwenden Sie die 
höchstmögliche Zeilennummer, sodaß die Daten immer noch vor 
den Daten-Ende-Flags liegen, die als letzte Werte vom Programm 
gelesen werden: +: 50a. ia vi S 08 u an 


929 DATA 2,6 


Die Zeilennummer darf nicht größer als 929 sein, da sonst die in 
Zeile 930 vorgesehenen Flags nicht als letzte Daten im Programm 
gelesen werden. Es ist daher von großer Bedeutung, an welcher 
Stelle ein DATA-Statement in ein bereits vorhandenes Programm 
eingefügt wird! 


38. Wir brauchen ein Array mit 8 Elementen. Das bedeutet, daß 
wir eine indizierte Variable mit Indizes von 1 bis 8 verwenden 
müssen, um dadurch die 8 Clubmitglieder zu repräsentieren. Der 
zu jedem Element des Arrays, also zu den einzelnen indizierten 
Variablen, hinzuaddierte Wert ist die Anzahl der Schokoladen- 
riegel, die jedes Miglied verkauft hat. Zuerst muß das Array je- 
doch initialisiert werden. Schreiben Sie dazu eine Zeile mit 
mehreren Statements, durch die das Array initialisiert und jedem 
Element eine Null zugeordnet wird. Wir nennen dieses Array das 
“A Array’ und verwenden A(X) für die indizierte Variable. 


100 REM*** SCHOKOLADENRIEGEL-ZAEHLER 
110 REM***INITIALISIERUNG 
120: IM une na re 0 ae 1 0 aa en a 


120 DIM A(8) : FOR X=1 TO 8: LET A(X)=0 :NEXT X 


39. Jetzt wollen wir die Daten paarweise einlesen. Verwenden Sie K 
für die einzelnen Mitglieder und O für die Anzahl der Schokoladen- 
riegel und prüfen Sie jeweils, ob Sie bereits am Daten-Ende-Flag ange- 
langt sind. Sofern alle Daten verbraucht sind, soll das Programm zur 


Zeile 310 weitergehen. Alle erwähnten Schritte können in einem 
einzeiligen Mehrfach-Statement untergebracht werden. 


200 REM***LIESDATEN UND ZAEHLE 
210 


an Va dann 
TREUEN nee DET EEE IE ET Be ae ee FeardtTe 


210 READ K,Q : IF K=-1 THEN 310 


40. Jetzt wird es schwieriger. Wir müssen nämlich die Anzahl der 
Schokoladenriegel jeweils in dem Array-Element aufaddieren, das 
dem Clubmitglied zugeordnet ist, das sie auch verkauft hat. Stellen 
Sie sich dazu den Index K in der indizierten Variablen A(K) als die 
Indentifikationsnummer der einzelnen Mitglieder vor. 


220 LET A(K)=A(K)+Q :,GOTO 210 


Diese Menge wird zu dem Element 
hinzuaddiert, das dem Clubmit- 
glied mit der Nummer K zuge- 
ordnet ist. 


Diese Anweisung be- 
deutet ”gehe zurück zur 
Zeile 210 und lies wei- 
tere Daten!‘ 


Wenn K=2 (Clubmitglied 2) und die Menge Q=4 ist, bewirkt Zeile 220, 
daß das Array-Element A(........... 1 ER größer wird, 


4. Wenn die Array-Elemente, vor dem Lesen und Addieren der zusätz- 
lichen, nachfolgend angegebenen Daten so aussehen, wie links angege- 
ben, wie werden sie anschließend aussehen? 


920 DATA 4,6,3,8,6,6,7,2,4,3 


aA= | 8 | Al1)= 
Bei a | (2)= 
Be >) (3)= 
“= | _4 | (4)= 
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Vorher Nachher 


42.Hier sehen Sie das gesamte Programm, soweit wir es bisher er- 


arbeitet haben: 


100 REM***SCHOKOLADENRIEGELZAEHLER 
110 REM***INTITIALISIERE 

120 DIM A(8) 

130 FOR X=1 TO 8: A(X)=0 : NEXT X 

200 REM***LIES DATEN UND ZAEHLE 

210 READ K,Q : IF K=-1 THEN 310 

220 LET A(K)=A(K)+Q : GOTO 210 

900 REM***DATENPAARE: IDENTIFIKATIONS-NUMMER UND 
901 REM***MENGE 

910 DATA 4,6,7,12,3,6,1,8,4,5,5,3,8,20 

920 DATA 2,4 3,8,6,6,5,10,7,12,8,4,1,3 

929 DATA 1,6 

930 DATA -1,—1 


Das Programm startet und addiert auf. Bevor es aber anhält, müssen 
wir noch vorsehen, daß es die Ergebnisse in einer Aufstellung ausdruckt. 
Für diese Liste wollen wir folgende Überschrift vorsehen: 
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300 REM***DRUCKE UEBERSCHRIFT 
310 PRINT “NUMMER *, “MENGE” 


Die Ergebnisse sollen mit Hilfe eine FOR-NEXT-Schleife ausgedruckt 
werden. 


320 FOR X=1 TO8 
330 PRINT X, A(X) 
340 NEXT X 


oder 
320 FOR X=1 TO 8: PRINT X, A(X) :NEXTX 


Geben Sie, unter Verwendung der Daten im DATA-Statement an, wie 


die ausgedruckte Liste aussehen wird, nachdem das Programm gelaufen 
ist. 


RUN 

NUMMER MENGE 
1 17 
2 4 
3 14 
4 11 
5 13 
6 6 
7 24 
8 24 
READY 
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43.Bis jetzt gibt unsere Liste nur an, wer wieviel verkauft hat, jedoch 
keine Namen und weder die Gesamtstückzahl noch den Geweinn. Mit 
einiger Hilfe kann unser Computer aber diese Angaben liefern. 


Fangen wir mit der Summe an. In BASIC hat jedes Array ein Element, 
das wir bisher noch nicht verwendet haben. Es handelt sich um das 
Nullelement (0). Erinnern Sie sich daran: Wenn Sie ein Array mit 8 
Elementen durch DIM(8) dimensionieren, erhalten Sie in Wirklichkeit 
9 Elemente, nämlich 0,1,2,3,4,5,6,7,8. 


Da wir keinem Club-Mitglied die Nummer O0’ zugweiesen haben, 
wurde das Element des A-Arrays mit dem Index 0 bisher nicht benutzt. 
Es kann daher zur Ermittlung der Gesamtanzahl verkaufter Schoko- 
ladenriegel verwendet werden, obwohl wir auch eine andere Variable 
vorsehen könnten. Sehen Sie sich das Statement 410 an, durch das die 
Gesamtzahl der Schokoladenriegel in A(0) aufaddiert wird. 


400 REM***BERECHNE DIE GESAMTSTUECKZAHL UND DEN 
GEWINN 
410 FOR X=1 TO 8: A(0)=A(O)+A(X) : NEXT X 


Wenn das A-Array mit 0 beginnt, müssen wir daran denken, das FOR- 
Statement in der Initialisierungs-Routine so abzuändern, daß die Zu- 
weisung von Nullen jetzt bei A(0) beginnt. Schreiben Sie die Initiali- 
sierungs-Zeile für dieses Programm so um, daß alle Array-Elemente 
O als Anfangswert erhalten. 


BE EB Be de reine wiki ar keinen un yaaiere ine are 


130 FOR K=0 TO 8 : A(X)=0 : NEXT X 


44.Das Statement, das alle von den Clubmitgliedern verkauften 
Schokoladenriegel aufaddiert, verwendet zum akkumulieren der in A(1) 
bis A(8) gespeicherten Werte das Element A(0) des A-Arrays. 


Wenn das Array so aussieht, wie in Abschnitt 41 (nach dem Lesen der 
Daten), welcher Wert wird dann nach einem Durchlauf der Schleife 
in. Zeile 410. n-AI0) gemaichert? cas un won an cu sem u Bra oa ad 


45.Schreiben Sie jetzt die noch fehlenden Programmzeilen 420 und 
430, mit denen die Gesamtstückzahl und der Gewinn (55 Pfg. je 
Schokoladenriegel) ausgedruckt werden sollen. Hier sehen Sie, was Zeile 
420 ausdruckt: 


GESAMTSTUECKZAHL: 113 
GEWINN: 62.15 


420 PRINT "GESAMTSTUECKZAHL:”; A(0) 
430 PRINT “GEWINN: ”';A(0) *0.55 


46. Hier nun ein vollständiges Listing unseres bisherigen Programms, 
mit einem ausgedruckten Lauf. 


100 REM***SCHOKOLADENRIEGELZAEHLER 
110 REM***INITIALISIERE 

120 DIM A(B) 

130 FOR X=0 TO 8:A(X)=0:NEXT X 

200 REM***LIES DATEN UND ZAEHLE 

210 READ K,Q:IF K=-1 THEN 310 

215 IF K=-1 THEN 310 

220 A(K)=A(K)+Q:GOTO 210 

300 REM***DRUCKE DIE UEBERSCHRIFT 

310 PRINT “NUMMER”, “MENGE” 

320 FOR X=1 TO 8:PRINT X,A(X):NEXT X 

400 REM***GESAMTSTUECKZAHL UND GEWINN 
410 FOR X=1 TO 8:A(0O)=A(O)+A(X):NEXT X 

420 PRINT "GESAMTSTUECKZAHL:";A(0) 

430 PRINT "GEWINN:”;A(0)*0.55 

900 REM***DATENPAARE: IDENTIFIKATIONSNUMMER UND 
901 REM***MENGE 

910 DATA 4,6,7,12,3,6,1,8,4,5,5,3,8,20 

920 DATA 2,4 ,3,8,6,6,5,10,7,12,8,4,1,3 
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929 DATA 1,6 
930 DATA —1,-1 


RUN 

NUMMER MENGE 
1 17 

2 a 

3 14 

4 11 

5 13 

6 6 

7 24 

8 24 
GESAMTSTUECKZAHL: 113 
GEWINN: 62.15 


Das ist schon eine ganz brauchbare Aufstellung. Aber halt! Finden Sie 
nicht auch, daß Sie ein wenig unpersönlich aussieht? Es wäre noch 
schöner, wenn die Namen der Mitglieder, statt einer Nummer ausge- 
druckt würden. Wie können wir das erreichen? Sehr einfach. Wir weisen 
den Computer an, die Namen aus DATA-Statements zu lesen. 


String-Variable müssen, wie wir bereits wissen, genau wie ein Array 
dimensioniert werden. Vergessen Sie dabei auch nicht das $-Zeichen an 
der richtigen Stelle, das eine String-Variable identifiziert. Es ist zweck- 
mäßig, jedes Array in der Zeile zu dimensionieren, in der es erstmals 
verwendet oder initialisiert wird, 


Schreiben Sie ein DIM-Statement zur Initialisierung von N$(X), für 
einen String, der auch für den längsten Namen eines Clubmitglieds 
ausreicht. 


GEN acer aaa ea Ib ba Fr a N 


140 DIM N$(8) (Die Zahl in Klammern muß mindestens 5 sein) 


47.Nehmen wir einmal an, wir haben die Namen der Clubmitglieder 
in der gleichen Reihenfolge in ein DATA-Statement eingesetzt, wie 
ihre Identifikationsnummern. 


DATA JERRY, BOBBY, MARY, DANNY, KARL, MIMI, DOUG, 
SCOTT 
Beachten Sie bitte, daß diese Zeile auf dem Bildschirm in die nächste 
Zeile hineinreicht. Der Computer stört sich aber nicht daran und sieht 
Zahlen oder Namen, die am Ende der Zeile getrennt sind, als zu- 
sammengehörig an. 


Da unser BASIC keine String-Arrays, sondern nur numerische Arrays 
erlaubt, müssen wir den Computer auffordern, jeden Namen zu dem 
Zeitpunkt zu lesen und auszudrucken, an dem er die Liste ausgibt. 
Das Statement zum Lesen der Namen aus dem DATA-Statement 
muß daher innerhalb der FOR-NEXT-Schleife liegen, die die Liste 
ausdruckt (Zeilen 320 und 340). 


300 REM***DRUCKE UND LISTE 

310 PRINT 

320 PRINT “NAME“,"MENGE“ : PRINT 
330 FOR X=1 TO8 : READ NS 

340 PRINT N8,A(X) : NEXT X 


Beachten Sie, daß hier kein Daten-Ende-Flag vorgesehen wurde, da die 
FOR-NEXT-Schleife nur achtmal durchlaufen wird und im DATA- 
Statement auch nur 8 Namen enthalten sind. 


Jetzt bleibt noch die Frage offen, wo wir das DATA-Statement ein- 
fügen sollen, das die Namen der Clubmitglieder enthält. Denken Sie 
daran, daß wir eine Fehlermeldung vermeiden möchten, die wir er- 
halten, wenn ein READ-Statement mit einer numerischen Variablen 
auf ein DATA-Statement trifft, das Strings enthält. 


Wo muß das DATA-Statement mit den Namen der Clubmitglieder also 
BEENEE WERTEN ac wa nn rn nn nn 


Am Programmende, da alle numerischen Daten vorher eingelesen 
werden. 


48. Jetzt können Sie einmal zeigen, ob Sie alles verstanden haben. 
“Spielen‘ Sie bitte Computer und schreiben Sie auf, wie ein RUN 
des folgenden Programms aussehen würde. 
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100 REM***SCHOKOLADENRIEGELZAEHLER 
110 REM***INITIALISIERUNG 

120 DIM A(8) 

130 FOR Z=0 TO 8:A(X)=0:NEXT X 

140 DIM N$(8) 

200 REM***LIESDATEN UND ZAEHLE 

210 READ K,Q:IF K=-1 THEN 310 

215 IF K=-1 THEN 310 

220 A(K)=A(K)+0:GOTO 210 

300 REM***DRUCKE DIE LISTE 

310 PRINT 

320 PRINT “NAME“, “MENGE” 

330 FOR X=1 TO 8: READ N$ 

340 PRINT N3,A(X):NEXT X 

400 REM***GESAMTSTUECKZAHL UND GEWINN 
410 FOR X=1 TO 8:A(0)=A(O)+A(X):NEXT X 

420 PRINT "GESAMTSTUECKZAHL:“;A(0) 

430 PRINT “GEWINN:’;A(0)*0.55 

900 REM***DATENPAARE: IDENTIFIKATIONSNUMMER UND 
901 REM***MENGE 

910 DATA 4,6,7,12,3,6,1,8,4,5,5,3,8,20 

920 DATA 2,4,3,8,6,6,5,10,7,12,8,4,1,3 

929 DATA 1,6 

930 DATA -1,—1 

940 DATA JERRY,BOBBY, MARY,DANNY,KARL,MIMI,DOUG, 


SCOTT 


ee nee ae Erg ee ee een ke ee an ee 
nn ee ee ee eek ee 
CL US Sue Da Sur Ta Kup ar Per Rec ur Tor Bor Zur Ze ur ar er zur Bu ver ar 3 We mu: mE TE DE SE U zur a0 Mor mu Tr TE Dur var er Nor Bar Te Te er re 
nn. 0 EEE here een 
er re ie he ea ah ae ehe ae ee erete 
ro TUE HE TER AL TEE ee ee ee 
....... nm... 1. 0 Tr nr nee ee 
Ih er rue ernennt ee re ne RE eat 
Ta rue a au rare a ra eye le ee ah ee 
wer eier re re ea ae Fra ha 


SR ER Eee EEE ER rn ee te re he 


NAME MENGE 
JERRY 17 

BOBBY 4 

MARY 14 

DANNY 11 

KARL 13 

MIMI 6 

DOUG 24 

SCOTT 24 
GESAMTSTUECKZAHL: 113 


GEWINN: 62.15 


° 
49. Jetzt wollen wir uns einer anderen Anwendungsmöglichkeit für 
einfach indizierte Variable zuwenden, bei der weder Stimmen gezählt 
werden, noch irgendetwas aufaddiert wird. 


Sie haben doch sicher schon einmal von der “Partnervermittlung per 
Computer‘‘ gehört und sich bestimmt gefragt, wie das wohl funktio- 
niert? Sie müssen dazu eine @eihe von Fragen beantworten, die dann 
im Computer gespeichert werden. Andere Personen, die ebenfalls einen 
Partner suchen, machen dasselbe. Dann werden die Antworten ver- 
glichen, um die ”’Kompatibilität“ oder Übereinstimmung zu prüfen. Wir 
wollen jetzt einmal ein derartiges, allerdings stark vereinfachtes Pro- 
gramm ausarbeiten, das Sie für Ihre eigenen Zwecke abändern können. 


Wir verwenden einen Multiple-Choice-Fragebogen mit insgesamt fünf 
Fragen und jeweils vier möglichen Antworten. (Sie können dabei 
irgendwelche Fragen stellen, die Ihnen interessant erscheinen.) Die 
Antworten werden in DATA-Statements gespeichert, jeweils beginnend 
mit dem Namen, gefolgt von den fünf Antworten. Meine eigenen 
Antworten sehen Sie in Zeile 910: 


900 REM***ANTWORTEN 

901 REM***NAME GEFOLGT VON DEN ANTWORTEN 
902 REM***'SEINE’ ANTWORTEN IN ZEILE 910 

910 DATA LEROY'’3,3.4 2,1 \ 


Schreiben Sie jetzt DATA-Statements (Zeilen 920 -- 970) für die 
folgenden Personen und ihre Antworten. Sehen Sie außerdem ein 
Daten-Ende-Flag vor. 
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920 DATA JOAN  1,4,2,2,1 
930 DATA TONI 2,2,2,3,3 
940 DATA LAURA 2,3,3,1,2 
950 DATA MARY ,3,3,4,2,1 
960 DATA IRENE,3,1,4 2,1 


50. Jetzt sollen Sie den Rest des Programms schreiben, wobei wir 
Ihnen natürlich etwas Hilfestellung geben werden. Zuerst brauchen Sie 
ein DIM-Statement, das es dem Programm ermöglicht, “seine” im Array 
C gespeicherten Daten mit ”ihren’ im Array A abgelegten Daten zu 
vergleichen. Initialisieren Sie auch eine String-Variable N$ für “seinen” 
und H$ für “ihren‘’ Namen. 


100 REM***SUMULATION EINER PARTNERVERMITTLUNG 
105 REM***INITIALISIERUNG 
ID anna a mar un ee Era ae 


110 DIM C(6),A(5),N3(10),H3(10) 


Beachten Sie bitte: In einem DIM-Statement können Sie mehr als ein 
Array dimensionieren! 


51. Lesen Sie jetzt als nächstes das erste DATA-Statement, das “seinen” 
Namen enthält und die zugehörigen 5 Antworten ein. Die Antworten 
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& 


— u [- 


sollten in das C-Array gespeichert werden, und zwar unter Verwendung 
der in den Abschnitten 8 und 18 angegebenen Methode. 


Drucken Sie dann ”’seinen‘’ Namen und alle Antworten in einer Zeile 
aus, sodaß Sie sie später mit “ihren’‘ Antworten vergleichen können. 


200 REM***'SEIN’ NAME UND SEINE ANTWORTEN 
I ma aa aan Ki ans Kar a Ba a ee ee 


210 READ N 

220 FOR X=1 TO 5:READ C:C(X)=C:NEXT X 

230 PRINT N$, 

240 FOR X=1 TO 5:PRINT C(X);“ "; :NEXT X:PRINT 


Haben Sie an dieses PRINT-Statement gedacht? Es positioniert den 
Cursor wieder am Anfang der nächsten Zeile. 


Anmerkung: 

Möglicherweise haben Sie mehr oder weniger Zeilennummern ver- 
wendet. Auf jeden Fall aber müssen die Statements in der angegebenen 
Weise ausgeführt werden, und zwar in der gleichen Reihenfolge. 


52. Lesen Sie als nächstes einen von “ihren‘ Namen und Datensätzen 
in das Array A ein. Veranlassen Sie, daß ihre‘ Antworten so ausge- 
druckt werden, daß sie rein visuell mit seinen‘ Antworten verglichen 
werden können. Nach dem Lesen “ihres’’ Namens in Zeile 310 müssen 


- Sie prüfen, ob bereits das Daten-Ende-Flag (das Wort END) vorliegt. 


Verwenden Sie dazu den String-Vergleich IF H3="END“ THEN END. 
Die Ausgabe, die wir zu diesem Zeitpunkt wünschen, sollte folgender- 
maßen aussehen: 


RUN 
LEROY 3 3 4 2 1 
JOAN 1 4 3 2 1 
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Vervollständigen Sie bitte das Programm-Segment, damit diese Ausgabe 420 FOR X=1 TO5 


erzeugt wird. "23 10 | SEE THEN 450 $—————————— Vergleiche 
440 \LETSME . 204% 8 <——— Addiere die Übereinstimmungen 
300 REM***'IHRE’ NAMEN UND ANTWORTEN | Ba aa ——— Schließen der Schleife, um einen wei- 
SIG u sun ds men a a ie Sa aa teren Vergleich durchzuführen. 
SEO, u: u a a a a 460 PRINT ve cccann.n. “JEBEREINSTIMMUNGEN” 
EN rien als ie E ertae ve Yan ed ae re ee eelee te 470 PRINT 
SAU 2 Sera re ale Nie na De a TE I a | AR NSOTT 2 re g4-——-Einlesen eines weiteren Datensatzes 
310 READ H$:IF H3="END’ THEN END | 410 M= 
320 FOR X=1 TO 5:READ A:A(X)=A:NEXT X 420 FOR X=1 TO5 
330 PRINT H8$, 430 IF C(X) () A(X) THEN 450 
340 FOR X=1 TO 5:PRINT A(X);” “;:NEXT X:PRINT 440 M=M+ 
| 450 NEXT X 
53.Nun kommt der schwierigste Teil, in dem der Inhalt des Arrays | 460 PRINT M;” UEBEREINSTIMMUNGEN” 
C mit dem Inhalt des Arrays A verglichen und die Anzahl der Über- ö 470 PRINT 
einstimmungen in die Variable M addiert wird. Denken Sie darüber 480 GOTO 310 


nach, wie diese Schritte zu programmieren sind und vervollständigen 
Sie das Programm so, daß ein Lauf des vollständigen Programms aus- 
sieht, wie hier abgebildet: 


Nachfolgend finden Sie ein Listing des gesamten Programms: 


j 
\ 
100 REM X%%XSIMULATION EINER PARTNERVERMITTLUNG 
RUN 103 REM %%%kINITIALISIERUNG 
Eng a “ Pr 2: 1- 110 DIM C(5),A(5),N$ (10) „H$ (10) 
on = z R Er : | 200 REM Xk%’SEIN’ NAME UND ’SEINE’ ANTWORTEN 
| 210 READ N$ 
2 UEBEREINSTIMMUNGEN 20 FOR X=1 TO S:READ C:CtX)=C:NEXT X 
TONI 2 2 2. 3 3 | 230 PRINT N$, 
0 UEBEREINSTIMMUNGEN 240 FOR X=1 TO SPRINT C(X)3" "HtNEXT XrPRINT 
2 300 REM %%%’ IHRE” NAMEN UND ANTWORTEN 
Ba RR 3 ! 310 READ H$: IF H$="END" THEN END 
1U 320 FOR X=1 TO S:READ AzAlX)=AeNEXT X 
MARY 3 3 4 2 1 330 PRINT Hs, 
5 UEBEREINSTIMMUNGEN 340 FOR X=1 TO S:PRINT A(X)3" "z:NEXT XtPRINT 
(BEE a ’ 4 5 . 400 REM XXKVERGLEICHE UND ZAEHLE DIE 
1) ” ’ 
esekteiker use 01 REM %%%k” UEBEREINST IMMUNGEN 
420 FOR X=1 TO 5 
400 REM***VERGLEICHE UND ZAEHLE DIE non.) Ye au 
401 REM***UEBEREINSTIMMUNGEN’ 2 AN 
410 M-0 450 NEXT X 
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460 
470 
480 
9700 
901 
902 
910 
920 
FO 
940 
950 
960 
975 
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FRINT M;5" UEBEREINSTIMMUNGEN" 
PRINT 

GOTO 310 

REM %XKKANTWORTEN AUF DIE FRAGEN 

REM *%k%XNAME GEFOLGT VON DEN ANTWORTEN 
REM *Xk%"SEINE’ ANTWORTEN IN ZEILE 910 
DATA LEROY,3,3,4, 2,1 

DATA JOAN, 1,4,2,2, 

DATA TONI,2,2,2,3,3 

DATA LAURA,2,3,: 

DATA MARZ,3,3,4 
DATA IRENE,S3,1 
DATA END 





EIGENTEST 


Wenn Sie den nachfolgenden Test über indizierte Variable vollständig 
durcharbeiten, sind Sie ausreichend für das nächste Kapitel vorbereitet, 
das Ihre Programmierfähigkeiten nochmals erweitern wird. In diesem 
Kapitel werden Sie nämlich die Verwendung noch komplexerer, indi- 
zierter Variabler erlernen. Es ist daher sehr wichtig, daß Sie alle Infor- 
mationen aus diesem Kapitel parat haben. 


1. Geben Sie an, welche der folgenden Variablen zulässige, indizierte 
BASIC-Variable sind. 


IR u BIRR onen c)X(2)... 
d)2(X)... e)XX(2).... HAM)... ... 
RZ cu; hHIJ..... 


2. Nehmen Sie an, daß den Variablen Werte zugeordnet wurden, wie 
nachfolgend angegeben. Beachten Sie, daß sowohl einfache, als auch 
indizierte Variable gezeigt werden. 


L 2 7 A) 
SE EEE aa [ #3] 
u Aa) [23] 
A(A) 


Denken Sie daran, daß A, A1 und A(1) verschiedene Variable sind. 
Tragen Sie anschließend den Wert jeder Variablen ein. 


EYE a u ae EEE en ce ann wene  wa are s 
2 N EEE 


BIRNEN a a knmaen sin arme ars ee Arie and Arien 
BINNEN u Hinten ea ne haare are mag Barren RTL Ka 
ER) una na Yan hin re era ae are 
Eee re randraie de maränd an: Dreck 
BEINEN. mn new ren ee ee mern ne 


3. Was wird beim Lauf des folgenden Programms ausgedruckt? 
100 REM***GEHEIMNIS-PROGRAMM 
110 DIM X(10) 
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120 READ N 

130 FOR K=1 TON 
140 READ X:X(K)=X 
150 NEXT K 


Ban ER area ran a a ECHTE nein ae 
> ren nen a RE DURFTE une aaa a Ehe in RR are 
ee en re a a en me 


160 FOR K=1 TON 

170 IF X(K) (0 THEN 190 

180 PRINT X(K);” “'; 

190 NEXT K 

900 REM***WERTE FUER DAS N- UND X-ARRAY 
910 DATA 7 

920 DATA 23,—44,37,0,—12,- 58,87 


RUN 


.. IR ERW ET Be ae ee EEE A en Karma 
. 


. Welches ist im Programm aus Frage 3 der größte Wert von N, für den 


7.Sie wurden damit beauftragt, eine Wohltätigkeits-Sammlung in Ihrer 


Nachbarschaft durchzuführen. Sie haben 5 Helfer, die von Tür zu Tür 
gehen, Geld sammeln und es am Ende jedes Tages bei Ihnen ab- 
liefern. Sie tragen ihre Namen und die gesammelten Beträge in ein 
Formular ein. Diese Daten sollen dann zu weiteren Bearbeitung in 
Ihren Computer eigegeben werden. Schreiben Sie daher ein BASIC- 
Programm, das den von jedem Helfer jeweils abgelieferten Betrag 
aufaddiert, außerdem aber auch die von allen insgesamt gesammelte 
Summe ausdruckt. Ihre Aufstellung sollte die Namen jedes Helfers 


das Programm benutzt werden kann? .... 2222222 und die gesammelten Beträge enthalten. 
Was würde geschehen, wenn wir versuchten, das Programm unter RUN 
Verwendung der folgenden Daten laufen zu lassen? ..... 2222220. NAME GESAMMELTER BETRAG 
BERE U REES ERS ve re ie ee ER I en rn FRED 125 
910 DATA 12 JOANN 205 
920 DATA 3,6,—2,0,9,0,7,3,-5,4,—1,7 MARYJO 100 
’ JERRY 100 
5.Modifizieren Sie das Stimmen-Zählprogramm aus Abschnitt 27 so, BOB 200 
daß die gesamte Stimmenzahl beider Kandidaten ebenfalls ausge- SUMME 730 
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druckt wird. Ein Ausdruck könnte dann zum Beispiel so aussehen: 
RUN 

HANS SCHMITT: 19 

CLAUDIA MUELLER: 16 


GESAMTSTIMMEN: 35 


u... rennen 
Br 4 EEE Tee ne KR. En ae ie re Be Flak 


DEUTET reine 
Nie a ai ne ee ee reason 


. Modifizieren Sie das Stimmenzählprogramm aus Abschnitt 27 so, daß 


der Stimmanteil in Prozent von der Gesamtzahl angegeben wird, und 
zwar abgerundet auf das nächste ganze Prozent. 

RUN 

HANS SCHMITT: 54% 

CLAUDIA MUELLER: 46% 


. ern n. 0. 
ner UETRFLEEUT ER VEEHMIE Ta raue ie ie ee 





Br em a Brnor En EEE hama ne rw nungen 
BEER TE RE EEE ein 
DE ER TIR aerapem nn rege BE RT TE ER ern Rz 
Re RE EEE N ER IT Faea au  Dan en ARE 
NEE I RE a RER TE ATLETE  kaaen ajane 
GE ERENER Snere Ei EEE TREE a ne ne 
BR EEE TE a N en 
TREE EIER ve ni a Te ne ea 
ES USE EEE RE REED U again. RN ae 
ERROR RENT BE EEE RE TE as ta a een 
BR EAN RE EEE RE a at Baer 

= raden Sie ARNO 0a TR Re eu a a A 

ERS ee Bine ie a ER enaeeten 

N EEE N ET RR a DER EU nee 


ge Er a an RE nee rer ne ERDE Gere 


8. Die Mitglieder Ihres Computer-Clubs möchten durch einen Test ent- 


scheiden, wer der beste Programmierer ist. Sie werden damit beauf- 
tragt, einen Multiple-Choice-Test über Programmier-Konzepte durch- 
zuführen und den Test unter Verwendung des Computers zu korri- 
gieren. Die möglichen Antworten sind die Zahlen 1,2,3,4 oder 5. 
DerTestselbst enthält 10 Fragen. Sie geben zunächst die 10 korrekten 
Antworten in die ersten DATA-Statements des Programms ein. Sie 
werden anschließend in das Array K eingelesen. In den nachfolgen- 
den DATA-Statements geben Sie erst den Namen des Club-Mitglieds 
ein, gefolgt von den 10 Antworten, die bei dem Test gegeben 
wurden. (Die Eingabe erfolgt in das Array R). Ihre Aufgabe besteht 
darin, ein BASIC-Programm zu schreiben, das die Tests korrigiert 
und eine Aufstellung ausdruckt, die ähnlich wie das nachfolgende 
Beispiel aussieht. 


RUN 

NAME TREFFER 
DANNY 5 

KARL 5 
MIRIAM 4 

SCOTT 7 


ee iu le ee en ee ne euer ne Bei DE el 


.w.n... 0 nee Re 5 MER ae a Deu ne 


UM be a0 era na ae We le en ie ee Band he rer ee 


EDEN ee re a ee aan 


aaa a Te ERDE EI de ne EEE EEE Re 


zum mare 9 ee ne Eu ee ee er ee 


va na Dee een te er are een. se 


r HERE TE ET EEE HE VRR ER I ET ET EEE a at ernannt er 


nn a ee ee een es 


un 7,806 6 ern Be are, u ea a ee ae a re 


LIES Zu SEE Dun SEa Zar JZur ur Ber Jar Zus Zr Ser 17 Ba ar Er ze SE Dar a0 Jar Dee Er Br ver ar Sa Te ee ee re Pure 


nn. ned ihre rue rn ee re ai ein 


nannte Fern a euere een 


vr inne dann neuen he er ea EEE TREE ae 


Bere re Ana ran EELTLELEETE te ans 


9. Haben Sie sich schon jemals gefragt, welche Chancen Sie bei einem 


Spiel haben, bei dem Würfel verwendet werden? Wenn Sie ein Pro- 
gramm schreiben, das einen rollenden Würfel sumuliert und dabei 
zählen, wie oft die einzelnen Zahlen von 1 bis 6 “gewürfel”’ werden, 
bekommen Sie eine ziemlich präzise Vorstellung von Ihren Gewinn- 
möglichkeiten. 


Schreiben Sie daher ein BASIC-Programm, durch das 1000 mal das 
Werfen eines Würfels simuliert wird. Addieren Sie nach jedem Wurf 
das Auftreten der jeweiligen Zahl in einem zugehörigen Array-Ele- 
ment. Drucken Sie nach 1000 Würfen die Ergebnisse in Form einer 
Liste aus, die angibt, wie oft jede Zahl während der Computer- 
Simulation aufgetreten ist. Ihre Liste sollte so aussehen, wie nach- 
folgend abgedruckt. 


RUN 

WIEVIELE WUERFE? 1000 

ZAHL WIE OFT AUFGETRETEN? 
1 159 

2 152 

3 173 

4 142 

5 189 

6 185 


Dr BETEN a DE 3 FWEUT EN a ea ee 


Ne I EEE RE En re RT TR a NEL 


Br a ee er BEE RETRO EI DEE en 


Br EEE a en re REEL EEE ar EEE ehe 


ee 2 ERDE ERNEST NEE TE FRE re an nenne 


te en ee REN ER ER RE DR ree re ee re 


EHER ul anime re ie EEE rin isn 


BSR ar De TE U ERERN E ieran a  e rae 


Bar ee 5 EIER a a ur a a a 


ee ee EEE ER RE een DEE en Fee 


Antworten zum Eigentest 


Die Zahlen in den Klammern geben die Abschnitte an, in denen der 
jeweilige Stoff behandelt wurde. 


1.c), f) und h) sind gültige, indizierte Variable. 
Längere Variablen-Namen, wie zum Beispiel in e) können eventuell 
bei Ihrem Computer zulässig sein. Sehen Sie dazu in Ihrem Handbuch 


nach. (Abschnitt 1) 
2.a) 4 

b) 23 

c) 37 

d) 19 A(A(2)) = A(4) = 19 

e) 19 A(A(O)) = A(A(2)) =A(4) = 19 

f) 37 A(3-2) = A(1) = 37 

g) 19 A(3+1) = A(4) = 19 

h) 19 A(2+2) = A(4) = 19 (Abschnitt 4) 


3 283 37 0 87 (Abschnitte 7 und 8) 


4. 10. Der Computer würde eine Fehlermeldung ausdrucken. 
(Abschnitte 11 und 12) 


5. Fügen Sie die folgenden Statements hinzu: 


330 PRINT 
340 PRINT “GESAMTSTIMMEN:';C(1)+C(2) (Abschnitte 43 — 46) 


6. Führen Sie, beginnend mit Zeile 310, folgende Änderungen durch: 
310 LET T=C(1)+C(2) 
320 LET S=INT(100*C(1)/T + .5) 
330 LET G=INT(100*C(2)/T + .5) 
340 PRINT "HANS SCHMITT "55%" 
350 PRINT "CLAUDIA MUELLER: ";G;’’%' 
(Abschnitt 27 und Kapitel 4) 


7.10 REM 
15 REM 
20 DIM N$(10), T(5):G=0:FOR X=1 TO 5:T(X)=0:NEXT X 
25 REM 
30 READ P,D:IF P=-1 THEN 60 
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40 T(P)=T(P)+D:G=G+D:GOTO 30 

50 REM 

60 PRINT “NAME” ,”GESAMMELTER BETRAG” 
70 FOR P=1 TO 5:READ N$:PRINT N$,T(P):NEXT P 
80 PRINT ”SUMME:”,G 

900 REM 

910 DATA 2,45,1,75,3,25,4,100,3,25 

920 DATA 5,125,3,50,1,50,2,120,2,40 

930 DATA 5,75,—1,—1 

940 DATA FRED, JOANN,MARYJO JERRY,BOB 
(Abschnitte 35 — 53) 


10 REM 


20 REM 

50 DIM E(10),R(10),N$(10) 

40 REM 

s0 FRINT "NAME", "TREFFER":PRINT 
&0 REM 

7090 FOR X=1 TO 10 

80 READ KsE(X)=HK 

90 NEXT X 

100 REM 

110 READ N$: IF N$="END" THEN END 
120 FOR X=1 TO 10 

130 READ RıR(X)=R:ıNEXT X 

140 S=0 

150 REM 

160 FÜR X=1 TO 10 
170 IF K(X)EHRCX) 
190 S=$5+1 

190 NEXT X ki 

200 FRINT N$,S5:G0T0 110 

900 REM 

910 DATA 3,4,3,3,5,1, 2,3, 2,1 

920 REM — 

930 DATA DANNY,1,2,3,4,5,1,2,3,4,5 
940 DATA KARL,1,3,2,4,1,2,3,2,1,5 
950 DATA MIRIAM,3,2,2,1,4,1,2,3,1,2 
960 DATA SCOTT,1,2,3,3,5,1,2,5,2,2 
970 DATA END 


THEN 190 


(Abschnitte 49 -- 


53) 
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9. 


10 
20 
30 
40 
50 
60 


REM KAPITEL 8 
DIM D(&) 

FOR X=1 TO 6:D(X)=0s:NEXT X 
FRINT "WIEVIELE WUERFE?"; 
INFUT R 

FÜR X=1 TO R 


Doppelt-indizierte Variable 


In Kapitel 7 wurden Sie mit einfach-indizierten Variablen und ihren 


79 u EEE ul iin zahlreichen Anwendungsmöglichkeiten vertraut gemacht. In diesem 

= aan „"WIE OFT AUFGETRETEN?" Kapitel werden Sie auf keine neuen Statements treffen, sondern einige 

100 REM neue Anwendungen und Variationen von Dingen lernen, die Sie bereits 

110 FOR X=1 TO 6 kennen. 

120 FRINT X,D(X) i 

1Z0 NEXT X In diesem Kapitel wollen wir Ihre Kenntnisse in ATARI-BASIC auf 
(Abschnitte 25 — 31) Variable mit zwei Indizes erweitern, die wir als “doppelt-indizierte” 


Variable bezeichnen. Doppelt-indizierte Variable werden für numerische 
Arrays verwendet, die mehrere Spalten und Reihen erfordern würden, 
wie beispielsweise komplexen Wahlanalysen, detaillierte Finanz-Ana- 
Iyse-Probleme und eine Vielzahl von Anwendungen bei Brettspielen. 
Wenn Sie dieses Kapitel beendet haben, können Sie.... 


® Variable mit zwei Indizes benutzen; 


© doppelt-indizierten Variablen in einem zweidimensionalen Array 
(auch als Matrix bezeichnet) Werte zuweisen; 


© das DIM-Statement verwenden, um dem Computer die Dimen- 
sionen eines zweidimensionalen Arrays mitzuteilen. 


1. In Kapitel 7 verwendeten wir indizierte Variable, wie z.B. X(7) und 
T(K). Dabei handelt es sich um einfach-indizierte Variable. Das heißt, 
jede Variable hat einen einzigen Index. 


X(7) T(K) AS(X) 
ein Index ein Index ein Index 


In diesem Kapitel werden wir doppelt-indizierte Variable verwenden, 
d.h. Variable, die zwei Indizes aufweisen. 
T(2,3) 


Zwei Indizes, 
getrennt durch Komma 
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T(3) ist eine indizierte Variable mit wievielen Indizes? Sue a area ea 
T (7,5) ist eine indizierte Variable mit wievielen Indizes? .....:...... 


2.Es ist üblich, sich doppelt-indizierte Variable in einem Feld von 
Spalten und Reihen angeordnet zu denken, wie es nachfolgend ge- 
zeigt ist. 

Spalte 1 Spalte 2 Spalte 3 Spalte 4 
Reihe1 ANWL_I] AUDI AUT] AUS] 
Reihe2 AR] AR2LI A293] A2S3LI 
Reihe3 ABU) L__| ABaL__|] ABl] ABI 


Das obige Array hat ....... Reihen und ....... Spalten. 


3. Durch die Anordnung in Abschnitt 2 können wir Indizes zu speziellen 
Positionen innerhalb des Arrays (“’Schachteln‘‘), also in den jeweiligen 
Reihen und Spalten, in Beziehung setzen. Sie werden “Elemente” des 
Arrays genannt. Beispielsweise: 


A(2,3) 
Reihe Spalte 


A(1,1) liegt in Reihe 1, Spalte 1; A(1,2) liegt in Reihe 1, Spalte 2. 
Welche indizierte Variable liegt in Reihe 3, Spalte 2°... ...:ccc222... 


4. Die Anordnung der doppelt-indizierten Variablen in Abschnitt 2 wird 
als Tabelle, ‘Matrix’ oder auch zweidimensionales Array bezeichnet. 


In Kapitel 7 haben wir Arrays von einfach-indizierten Variablen vorge- 
stellt, die auch als Liste, ‘“Vektoren‘’ oder eindimensionale Arrays be- 
zeichnet werden. 
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Dies ist eine Liste: X(1) X(2) X (3) 
Dies ist eine Tabelle: C(1,1) C(1,2) C(1,3) 
C(2,1) C(2,2) C(2,3) 
C(3,1) C(3,2) C(3,3) 
a) Eine Liste wird auch als ......... HABErAalsı se bezeichnet. 
b) Eine Tabelle wird auchals ........ oderals........ bezeichnet. 


a) Vektor, eindimensionales Array 
b) Matrix, zweidimensionales Array 


5. Eine doppelt-indizierte Variable ist einfach der Name eines Speicher- 
platzes innerhalb des Computers. Wie bei jeder anderen Variablen, 
können Sie sich darunter den Namen für eine “Schachtel” zum Ab- 
speichern einer Zahl vorstellen. Hier sehen Sie eine Tabelle mit doppelt- 
indizierten Variablen. 


Bl 7 B(12) U] Bu 7 
B21) UL] B22) 73 B(2,3) [____] 


Tun Sie einmal so, als wären Sie der Computer und ordnen Sie der 
Variablen B(2,1) den Wert 73 zu. Mit anderen Worten, nehmen Sie 
Ihren Bleistift und schreiben Sie die Zahl 73 in die Schachtel mit der 
Bezeichnung B(2,1). Machen Sie dann das gleiche für die folgenden 
Variablen. 


LET B(1,3) = 0 

LET B(1,1)=49 

LET B(2,3) = B(2,1) — B(1,1) 
LET B(1,2) = 2*B(2,1) 

LET B(2,2) = INT(B(2,1)/B(2,3) 


Ban [ a ] Ba [126 Ba) [ 0 |] 
B(2,1) 22) [ 3] 823 [24 ] 


6. Wie wir in Kapitel 7 gelernt haben, können Indizes Variable sein. Die 
indizierte Variable P(R,C) hat variable Indizes. 
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Wenn R = 1 und C = 2 ist, dann ist P(R,C) = P(1,2). 
Wenn R=4 und C =3 ist, dann ist P(R,C) = P(4,3). 
Wenn R=7undC=3 ist, dann ist PEN > an ie manage Er Se ug 


7.Wir wollen einmal annehmen, daß die folgenden Werte (in den 
Schachteln“) den entsprechenden Variablen zugewiesen wurden. 
Beachten Sie, daß sowohl einfache, als auch indizierte Variable vor- 


kommen. 

rk] mOoIJ ma az 
cL3] a] 122308] T23) [8] 
ALL) Ten) Te2LEI Tesla] 


B[ 2 ] 


Tragen Sie für jede der folgenden Variablen jeweils den Wert und den 
Index ein. 


TR ne nnunne NT Dess un 

En TIAAe 040% 
FIRE ua nenn TIBEAIE weaan en. 
TIABE 2.0. u TIRAle sowas es: 

TR De nn nase 
8 7 
2 1 
3 7 
85 
09 
16 T(R+1,C-2)=T(2+1,3-2)=T(3,1) 


8. Jetzt wird wieder einmal gewählt! Vielleicht sollten sie, bevor Sie 
sich damit beschäftigen, noch einmal die entsprechenden Abschnitte im 
Kapitel 7 nachlesen, die sich mit der Wählerbefragung befassen. 
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Der nachfolgende “F ragebogen“ erfordert zwei Antworten: 






Frage 1: 
Für wen werden Sie in der 
kommenden Wahl Ihre Stimme 
abgeben? Kreisen Sie die ent- 
sprechende Zahl links von Ihrem 
Kandidaten ein. 

1. Hans Schmitt 

2. Claudia Müller 

3. Keine Meinung 













Frage 2: 
In welcher Altersgruppe sind Sie? 
Kreisen Sie die Zahl links von 
Ihrer Altersgruppe ein, 

1. Unter 30 

2. 30 oder darüber 








Da zwei Fragen gestellt wurden, besteht jede Antwort aus zwei Zahlen: 
der Antwort auf Frage 1 und der Antwort auf Frage 2. Zur Kenn- 
zeichnung der beiden Zahlen wollen wir in Zukunft S (für Stimme) 
zur Darstellung der beiden Antworten auf die Frage 1 und A (für 
Alter) zur Darstellung der Antwort auf Frage 2 verwenden. 


S,A 
Antwort auf Frage et ER auf Frage 2 


Die möglichen Werte für S sind 1,2 oder 3. Welches sind die möglichen 
RENTEN ann ann en ar ann una een 


1 oder 2 


9.Wir haben einige Fragebogen verschickt und folgende typische 
Antworten erhalten: 


Antwort Bedeutung 
I eine Stimme für Hans Schmitt, Wähler unter 30 
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1,2 eine Stimme für Hans schmitt, Wähler ist 30 Jahre 
oder älter 
3,1 keine Meinung, Wähler ist jünger als 30 


Eine Stimme für Claudia Müller, der Wähler ist 30 Jahre oder älter. 


10. Wir wollen jetzt ein Programm schreiben, um die Daten eines Frage- 
bogens mit zwei Fragen zu verarbeiten. Wir verwenden indizierte 
Variable, um die Stimmen zu zählen, so wie es nachfolgend gezeigt 
ist. 


unter 30 30 oder älter 


Hans Schmitt cu) I era LI 
Claudia Müller C{2,1) [______] 


c22) L |] 
Keine Meinung C(3,1) ER C(3,2) a: 
C(1,1) nimmt also die Stimmen für Hans Schmitt auf, die von be- 
fragten Personen unter 30 Jahren abgegeben wurde. C(1,2) enthält die 
Summe aller Stimmen für Hans Schmitt, die er von Wählern über 30 
Jahren erhielt. C(2,1) nimmt die Gesamtzahl der Stimmen für ........ 
re a es auf, die ihr von Personen ........... gegeben wurden. 


Welche indizierte Variable enthält die Anzahl der Stimmen von Wählern 
der Altersgruppe “30 Jahre oder älter”, die keine Meinung hatten? .... 


Claudia Müller; unter 30; C(3,2) 


11. Hier sind 20 Antworten für unseren Fragebogen. Denken Sie daran, 
daß jede Antwort ein Paar von Zahlen ist und eine Stimme repräsen- 
tiert. Die erste Zahl jedes Paares ist die Antwort auf Frage 1. Die zweite 
Zahl jedes Paares ist die Antwort auf Frage 2. 


3,1 2,2 3,2 1,2 1,2 
2,1 2,2 LI 1,2 3,1 
3,2 2,2 3,1 2,1 2,2 
1 1,1 12 9 | 2,1 
2,1 12 2,1 3,1 2,1 
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3,1 2,1 3,1 2,2 


Schreiben Sie in jedes Feld die entsprechenden Stimmen: 


unter 30 30 oder darüber 


HansSchmitt C(1,1) [L____] 
Claudia Müller C{2,1) IL] We RE | 
Keine Meinung C(3,1) _____] es L___ 77 


12. Natürlich möchten wir gern, daß der Computer die Aufgabe des 
Zählens übernimmt. Nachfolgend sehen Sie den Anfang unseres Pro- 
gramms. 


100 REM***STIMMENZAEHLUNG, 2 FRAGEN 
110 DIM C(3,2) 


Das DIM-Statement in Zeile 110 definiert ein Array mit maximal 3 
Reihen und 2 Spalten. Das heißt, das DIM-Statement dimensioniert 
ein Array von doppelt-indizierten Variablen, in dem der größte Wert des 
ersten Index 3 und der größte Wert des zweiten Index 2 ist. Sie müssen 
doppelt-indizierte Arrays immer dimensionieren, sonst erhalten Sie 
eine Fehlermeldung. 


DIM C(3,2) 


Maximaler Wert 
des zweiten Index 


Maximaler Wert 
des ersten Index 


Als nächstes müssen wir alle Zählvariablen auf Null setzen. Das heißt, 
wir weisen C(1,1), C(1,2) usw. bis C(3,2) O0 zu. Obwohl dies manche 
BASIC-Versionen automatisch tun, entspricht es guter Programmier- 
Praxis, jedes Programm zu initialisieren. Vervollständigen Sie bitte 
diesen Teil des Programms. 
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200 REM***INITIALISIERUNG: SETZE ALLE ZAEHLER AUF 
201 REM***NULL 


|. Baer DEE EEE re Bere u Bu een ee 
BE EI BE BRETT TE RETTET TR NETTER ET WLan wi Eimlariara rein 
BIRD BES E wre Wu ne re ee a ee era 
ns. nu HE ERTEITE NE EEE TER Sr re er ee ee 
ne REEL ET ET EEE RE Te re ea ans 


Hier sind vier Lösungsmöglichkeiten: 


Methode 1 


210 LET C(1,1)=0 
220 LET C(1,2)=0 
230 LET C(2,1)=0 
240 LET C(2,2)=0 
250 LET C(3,1)=0 
260 LET C(32)=0 


Methode 2 


210 FOR K=1 TO 3 
220 LET C(K,1)=0 

230 LET C(K,2)=0 

240 NEXT K 


Methode 3 


210 FOR K=1 TO 3 
220 FOR L=1 TO2 
230 LET C(K,L)=0 
240 NEXT L 
250 NEXT K 


Methode 4 
210 FOR K=1 TO 3:FOR L=1 TO 2:LET C(‘,L)=0:NEXT L:NEXT K 


Wir werden immer die Methoden 3 und 4 verwenden, da sie sich leicht 
für Arrays mit unterschiedlichen Größen verallgemeinern lassen. Bei 
Verwendung von Methode 3 können wir Zeilen hinzufügen, indem wir 
Zeile 210 Ändern. Die Anzahl der Spalten kann durch Änderung von 
Zeile 220 erreicht werden. Natürlich müßten wir gleichzeitig auch das 
DIM-Statement korrigieren. 


13. Das Array ist jetzt also dimensioniert und initialisiert, sodaß wir 
die Stimmen enlesen und zählen können. 


300 REM***LIES UND ZAEHLE DIE STIMMEN 
310 READ S,A : IF S=-1 THEN 410 
320 LET C(S,A)=C(S,A)+1 : GOTO 310 


Zeile 320 enthält das Zähl-Statement. Es addiert jeweils eine Stimme 
zu dem durch S und A spezifizierten Array-Element. Nehmen Sie an, 
daß das Array, vor Ausführung der Zeilen 310 und 320, wie folgt 
aussieht. 


\ 


> 


ca) [L__0 |] 
ca) [2] C(2,2) 
ca) 5] ce lL 5] 


Tragen Sie die folgende Abbildung ein, wie das Array nach der Ver- 
arbeitung dieser zusätzlichen Daten aussehen würde: 
910 DATA 3,1,2,2,3,2,1,2 


ca2)[_ 4 ] 


cu) Lo] cal 5 _] 
eat _ ©] C(2,2) 
es) [86] ca2) LT] 


14. Da Zeile 310 ein READ-Statement ist, müssen auch noch einige 
DATA-Statements vorgesehen werden. Hier sind Sie! Sie enthalten 
die in Abschnitt 1 angegebenen Daten. 


900 REM***DATENPAARE: 

901 REM***STIMMEN GEFOLGT VON DER ALTERSGRUPPE 
910 DATA 3,1, 2,2, 3,2, 1,2, 1,2, 2,1 

920 DATA 2,2, 1,1, 1,2, 3,1, 3,2, 2,2 

930 DATA 3,1, 2,1, 2,2, 1,1, 1,1,1,2 

940 DATA 1,1, 2,1, 2,1, 1,2, 2,1, 3,1 

950 DATA 2,1, 3,1, 2,1, 3,1, 2,2, —1,—1 


Bitte denken Sie daran, daß jede Antwort ein Zahlenpaar ist, aber nur 
eine Stimme repräsentiert. Um dies zu verdeutlichen, haben wir nach 
jedem Wertepaar einen Zwischenraum in den obigen DATA-Statements 
vorgesehen. Warum wird das Flag —1, —1 statt nur —1 verwendet? .... 


nes nd ea En re er ee ee ne are 


Findet der Computer nicht gleichzeitig für die Variablen S und A in 
Zeile 310 einen Wert vor, druckt er eine Fehlermeldung aus und stoppt. 
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15. Jetzt bleibt nur noch eine Aufgabe übrig, nämlich die Ergebnisse 
auszudrucken. Für die in Abschnitt 14 angegebenen Daten sollten die 
Ergebnisse, beim Lauf des Programms, so ausgegeben werden, wie es 
das nachfolgende Beispiel zeigt: 


RUN 

KANDITAT UNTER 30 30 + 
SCHMITT 4 5 
MUELLER 7 5 
KEINEM. 6 2 


Vervollständigen Sie jetzt das Programm-Segment zum Ausdrucken der 
Ergebnisse, — C(1,1), C(1,2) usw. 


400 REM***DRUCKE DIE ERGEBNISSE 


FINDE NE EDBRAER RETURN N RE IDEE a a de ne aa 
TE I PRTETE BETT Bin ame ni a re ee ee 
FDA RE TER DE EHRE EEE DR DAE TE EEE a ainernnie Kiez 
> BER DERITDN WE TREE EEE ee Keen arte rei re 
EEE EINE URAN a ER a RE A Reed 


Wir haben die Aufgabe folgendermaßen gelöst: 


410 PRINT "KANDITAT”,“UNTER 30° ,”30 +” 
420 PRINT 

430 PRINT “SCHMITT”,C(1,1),C(1,2) 

440 PRINT “MUELLER” ,C(2,1),C(2,2) 

450 PRINT “KEINE M.“,C(3,1),C(3,2) 


16. Hier ist das Listing des vollständigen Programms: 


100 REM***WAEHLERBEFRAGUNG, 2 FRAGEN 
110 DIM C(3,2) 

200 REM***INITIALISIERUNG 

210 FOR K=1 TO 3:FOR L=1 TO 2 

220 C(K,L)=0 

230 NEXT L:NEXTK 

300 REM***LIES UND ZAEHLE DIE DATEN 

310 READ S,A:IF S=-1 THEN 410 

320 C(S,A)=C(S,A)+1:GOTO 310 
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400 REM***DRUCKE DIE ERGEBNISSE 
410 PRINT “KANDIDAT” “UNTER 30° "30 +" 

420 PRINT A 

430 PRINT “SCHMITT*,C(1,1),C(2,1) 

440 PRINT “MUELLER”,C(2,1),C(2,2) 

450 PRINT “KEINE M.”,C(3,1),C(3,2) 

900 REM***DATENPAARE: 

901 REM***STIMMEN GEFOLGT VON DER ALTERSGRUPPE 
910 DATA 3,1,2,2,3,2,1,2,1.22,1 

920 DATA 2,2,1,1,1,2,3,1,32.2.2 

930 DATA 3,1,2,1,2,2,1,1,1,1,12 

940 DATA 1,1,2,1,2,1,1,2.2,1,3.1 

950 DATA 2,1,3,1,2,1,3,1,22,—1,—1 


Nehmen wir einmal an, der Fragebogen hätte folgendermaßen ausge- 


sehen: 







Frage 1: 
Wem würden Sie in der kommenden 
Wahl Ihre Stimme geben? Kreisen 

Sie die Zahl links von Ihrem Kandidaten 
ein. 








1. HANS SCHMITT 
2. CLAUDIA MUELLER 
3. KEINE MEINUNG 


Frage 2: 
Welcher politischen Partei stehen Sie 
nahe? 

1. USB 

2. LDS 

3. SONSTIGE 












Modifizieren Sie das Stimmenzähl-Programm so, daß die Antworten wie 
folgt gezählt werden: 


USB LDS SONSTIGE 
Hans Schmitt C(1,1) C(1,2) C(1,3) 
Claudia Müller C(2,1) C(2,2) C(2,3) 
Keine Meinung C(3,1) C(3,2) C(3,3) 
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Sie müssen dazu die Zeilen 110, 210, 410, 430, 440 und 450 ändern, 
110 


ee BE RE RE a TR EN a a A aaa as 
BERND, ae ea a ie DE MR 93 EEE Bra eraneten B 
me 6 RER RL Dana in Re ie a are ee‘ 
DEREILEE VE DARK RI IERRR T a  VIREUE ees 
ia ne ie DEE DE KETTE ee ei ey 
VUN wa ne ee ERRETETEE  TTTE ae Bae a Demi 


110 DIM C(3,3) 

210 FOR K=1 TO 3:FOR L=1 TO 3 n 
410 PRINT “KANDIDAT”,"USB”,"LDS”,”SONSTIGE“ 
430 PRINT “SCHMITT,C(1,1),C(1,2),C(1,3) 

440 PRINT “MUELLER” ,C(2,1),C(2,2),C(2,3) 

450 PRINT “KEINE M.”,C(3,1),C(3,2),C(3,3) 


Bitte beachten Sie: obwohl wir den Fragebogen geändert haben, ist 
es nicht erforderlich, das Zähl-Statement in Zeile 320 zu ändern! 


17. Hier ist ein Listing des modifizierten Programms. Es enthält auch 
die neuen DATA-Statements für die Befragung aus Abschnitt 16, Bitte 
schreiben Sie im Anschluß an das Programm hin, was ausgedruckt wird. 


100 REM*** STIMMENZAEHLUNG, 2 FRAGEN 
110 DIM C(3,2) 

200 REM***INITIALISIERUNG 

210 FOR K=1 TO 3:FOR L=1 TO 2 

220 C(K,L)=0 

230 NEXT L:NEXTK 

300 REM***LIES UND ZAEHLE DIE DATEN 
310 READ S,A:IF S=—1 THEN 410 

320 C(S,A)=C(S,A)+1:GOTO 310 

400 REM***DRUCKE DIE ERGEBNISSE 

410 PRINT “KANDIDAT”,"USB“,”LDS” “SONSTIGE” 
420 PRINT 

430 PRINT “SCHMITT”,C(1,1),C(1,2),C(1,3) 
440 PRINT “MUELLER ,C(2,1),C(2,2),C(2,3) 
450 PRINT “KEINE M.”,C(3,1),C(3,2),C(3,3) 
900 REM***DATENPAARE: 
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REM***STIMMEN GEFOLGT VON PARTEIANGABEN 
DATA 3,1,1,1,1,2,2,3,1,3,3,1,2,1 

920 DATA 2,2,3,2,3,3,1,1,2,3,1,2,2,1 

DATA 3,3,3,2,3,2,2,2,1,1,1,1,3,2 

940 DATA 3,2,2,1,3,1,1,2,1,3,2,2,2,1 

950 DATA 3,1,1,3,1,3,2,3,3,3,1,2,1,3 

960 DATA 2,3,2,1,3,1,1,2,3,3,2,3,2,1 

970 DATA 3,1,3,3,—1,—1 


RUN 

KANDIDAT USB LDS SONSTIGE 
SCHMITT a 5 5 
MUELLER 6 3 5 
KEINEM. 6 5 5 


18. Sehen Sie sich noch einmal diesen Abschnitt des Programms an: 


430 PRINT “SCHMITT”,C(1,1),C(1,2),C(1,3) 
440 PRINT "MUELLER ,C(2,1),C(2,2),C(2,3) 
450 PRINT “KEINE M.",C(3,1),C(3,2),C(3,3) 


Wir haben hier die indizierten Variablen mit den tatsächlichen Werten 
für die Indizes hingeschrieben. Statt dessen hätten wir auch FOR- 
NEXT-Schleifen verwenden können, um die Ergebnisse für die beiden 
Kandidaten und “Keine Meinung” auszudrucken. Dazu würden wir drei 
Zeilen mit Mehrfach-Statements benötigen. Denken Sie einmal sorg- 
fältig darüber nach und schreiben Sie die drei Zeilen 430, 440 und 450 
so um, daß zum Ausdruck der im C-Array gespeicherten Werte FOR- 
NEXT-Schleifen benutzt werden. Der Programmlauf sollte genau wie 
zuvor aussehen. 


ET STE ER EEE EDER TE a EEE Fear er Rate 
RUENE ANBRINGEN EEE Er er RA A en ee 


ee ne FREE NE ae nn VDE TREE EEE EEE NE Ban ans 


430 PRINT “SCHMITT“,:FOR X=1 TO 3:PRINT C(1,X),:NEXT: 
PRINT 

440 PRINT “MUELLER“,:FOR X=1 TO 3:PRINT C(2,X),:NEXT: 
PRINT 

450 PRINT “KEINE M.”,:FOR X=1 TO 3:PRINT C(3,X),:NEXT 


Beachten Sie, daß am Ende der Zeilen 430 und 440 ein PRINT-State- 
ment stehen muß, um dem Computer mitzuteilen, daß er eine neue 
Zeile in Position O beginnen soll, Auch diese Programmzeilen belegen 
auf dem Bildschirm übrigens mehr als eine Zeile. 


19. Erinnern Sie sich noch an das Problem, die verkauften Schoko- 
ladenriegel zu zählen? Vielleicht lesen Sie sich diese Abschnitte in 
Kapitel 7 noch einmal durch, bevor wir weitergehen? 


Damals hatten wir Schokoladenriegel zum Preis von 1 DM verkauft, 
woran wir einen Verdienst von 55 Pfg. hatten. Jetzt wollen wir noch ein 
weiteres Produkt hinzunehmen, und zwar eine Tüte mit Geleefrüchten, 
die wir für 0,50 DM verkaufen. Daran verdienen wir 0,30 DM. Die 
Aufgabe besteht nun darin, unseren Computer so umzuprogrammieren, 
daß er die Verkäufe der einzelnen Clubmitglieder und den Gesamt- 
Verdienst in Form einer Tabelle ausgibt. Hier sehen Sie die Aufstellung, 
die wir gern haben möchten. 


RUN 

NUMMER SUMME SCHOK. GEL.FR 
1 0 0 0 
2 3 3 0 
3 0 0 0 
4 6 3 6 
5 10 6 8 
6 0 0 0 
7 0 0 0 
8 12 6 12 
SUMME 31 18 26 
GEWINN: 177 99 7.8 


a) Wer machte in der obigen Aufstellung den größten Umsatz in DM? .. 
b) Wer verkaufte die meisten Schokoladenriegel® „2.2.22 2caeeaean. 
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a) 8 b) 5 und 8 c) 8 
d) Das ist aus der Aufstellung nicht direkt ersichtlich (es ist Nr. 8). 


20.Um die Buchführung zu vereinfachen, bereiten wir ein vorge- 
drucktes Formular vor, um darauf vermerken zu können, wer was mit- 
genommen hat. Wenn jetzt eins der Mitglieder Schokolade holt, füllen 
wir das Formular aus, das etwa so aussehen könnte: 





1. Schokolade. ?... 
2. Gelee-Früchte ®. . 






Dieses Formular gibt uns an, daß Danny, der die Nummer 4 hat 3 
Schokoladenriegel und 6 Tüten mit Geleefrüchten mitgenommen hat. 
Um die Zahlenangaben in Daten für den Computer aufzubereiten, be- 
nutzen wir folgendes Format: 


Nummer, Schokolade oder Gel.Fr. (1 oder 2), Anzahl 


Um die Daten in dieser Form darzustellen, werden zwei Datensätze 
mit insgesamt 6 Zahlenangaben erforderlich: 


ee RT er 
Daten 4.1.3 4.2.6 
Schokolade Fe 
Vervollständigen Sie bitte, an Hand der drei nachfolgenden Daten- 


sätze, die DATA-Statements des anschließenden Programm-Segmentes. 
Sehen Sie bitte auch Daten-Ende-Flags vor. 


Nummer 5 Nummer 8 
1: 6 1. 6 
2. 8 2. 12 
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900 REM***NUMMER’ WAREN—NUMMER, MENGE 
910 DATA 4,1,3, 4,2,6 
BE vun run BER a rn en a a 


920 DATA 5,1,6 5,2,8 2,1,3,2,2,0,,.Der letzte Zahlenwert (0) hätte 
930 DATA 8,1,6 8,2,12, —1,—-1,—1 auch entfallen können, da dieses 


el Mitglied keine Gelee-Früchte ver- 


Daten-Ende-Flag kauft hat. 
21. Unser Array wird so aussehen: 


Array A 1=Schokolade 2=Geleefrüchte 


1= Jerry 
2=Bobby 
3=Mary 
4=Danny 
5=Karl 
6=Mimi 
7=Doug 
8=Scott 


Hier sehen Sie eine weitere Möglichkeit zur Darstellung des gleichen 
A-Arrays. 


A A 


(1,1) (1,2) 
(2,1) (2,2) 
(3,1) (3,2) 
(4,1) (4,2) 
(5,1) (5,2) 
(6,1) (6,2) 
(7,1) (7,2) 
8,1) (8,2) 
| Erich Men ah 4 
: ge el.Fr. Menge 
ummer Nummer 





Unsere erste Aufgabe besteht darin, die Statements zur Initialisierung 
des Arrays zu schreiben, d.h. die Dimensionen festzulegen und alle 
Variablen auf Null zu setzen. Vergessen Sie dabei das Null-Element 
nicht. Wir werden es nämlich auch benötigen! 


100 REM***SUESSIGKEITEN-ZAEHLER 
110 REM***INITIALISIERUNG 
I a RE Er nei a an re ara Te are 


120 DIM A(8,2) 

130 FOR X=0 TO 8:FOR Y=0 TO 2 
140 A(X,Y)=0 

150 NEXT Y:NEXT X 


22. Lesen Sie jetzt einen Datensatz K,C,O ein (K = Mitgliedsnummer, 
C = Süßigkeiten-Art, -— 1 oder2 — ,Q = Menge) und prüfen Sie, ob es 
sich bereits um das Daten-Ende-Flag handelt. Sobald dieses Flag vor- 
liegt, soll das Programm zu Zeile 410 springen. 


200 REM***LIESDATEN UND PRUEFE AUF DAS FLAG 
I a nF NE Ar ke mn m een 


210 READ K,C,Q : IF K=-1 THEN 410 


23. Der Kern dieses Programms steht in Zeile 220, in der die Auf- 
addierung erfolgt: 


: 220 A(K,C)=A(K,C)+Q : GOTO 210 


Gehe zurück zur Zeile 
210 und lies weitere 
Daten. 


Nehmen wir einmal an, wir haben folgende Daten: 
910 DATA 4,1,3 


a) Bei welchem Array-Element wird durch diesen Datensatz der Wert 
ENNORBER enwe ana aa  EE Fe n aee in ea 
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a) a(4,1) b) 3 


24. Nehmen wir an, das Array sieht folgendermaßen aus: 


A A 
1, | 10 
a)| 0 | 22) | 0 
el 6 | wa 8 | 
al 6 | | m 
sl 3 | 5) | 0 | 
wnl| 0 | 62) | 8 | 
OH 8 | al 9 | 
8,1) e2 | 1 | 
Schokolade Menge Gelee-Früchte Menge 
Nummer Nummer 


Wie wird das Array nach der Verarbeitung der folgenden DATA-State- 
ments aussehen? 


910 DATA 4,1,3, 4,2,6 
920 DATA 5,1,6, 5,2,8, 2,1,3, 2,2,0 
930 DATA 9,1,6, 8,2,12 


A A 

(1,1) (1,2) 
(2,1) (2,2) 
(3,1) (3,2) 
(4,1) (4,2) 
(5,1) (5,2) 
(6,1) (6,2) 
(7,1) (7,2) 
(8,1) (8,2) 








210 
220 


910 
920 
930 


. Hier ist das Programm, soweit wir es bisher fertiggestellt haben. 


REM***SUESSIGKEITEN-ZAEHLER 
REM***INITIALISIERUNG 

DIM A(8,2) 

FOR X=0 TO 8:FOR Y=0 TO 2 
A(X,Y)=0 

NEXT Y:NEXT X 

REM***LIES DATEN UND PRUEFE AUF DAS FLAG 
READ K,C,Q0:IF K=—-1 THEN 310 
A(K,C)=A(K,C)+Q:GOTO 210 

DATA 4,1,3, 4,2,6 

DATA 5,1,6, 5,2,8, 2,1,3, 2,2,0 
DATA 8,1,6, 8,2,12, —1,—1,—1 


Wir wollen jetzt einmal eine vorläufige Liste ausdrucken lassen, die der 
Aufstellung aus Abschnitt 19 entspricht, aber noch keine Summen 
enthält. Bitte füllen Sie die Leeren Stellen im anschließenden Programm 


aus. 


Die vom Programm ausgedruckte Liste sollte folgendermaßen 


aussehen: 

RUN 

NUMMER SCHOK. GEL.FR. 
1 0 0 

2 3 0 

3 0 0 


285 


oo ou.» 
9O00W 
-0o000%0%0 


400 REM***AUSWERTUNG 1 

#109 PRINT "NUMMER" rare as aan ur a a een 
420 FOR K=1 TO8 

430 PRINTK,#-—— das Komma ist wichtig! 
Ra FORCE TO ara un a a a a er Fr an en vn mad 


410 PRINT "NUMMER ,’SCHOK.“,“GEL.FR.“ 
440 FOR C=1 TO2 

450 PRINT A(K,C), 

480 NEXT K 


26. Warum sind am Ende der Zeilen 430 und 450 in Abschnitt 25 
KONTRA an an ar en ge Beier an Bee ri 


Um einen Wagenrücklauf zu erzwingen, damit die nächste Mitglieds- 
nummer, bei erneuter Ausführung der Zeile 420, an der gleichen Stelle 
ausgedruckt wird. 


28. Bis jetzt liefert unser Programm die in Abschnitt 25 gezeigte Auf- 
stellung. Wir wollen es jetzt jedoch so vervollständigen, daß es die in 
Abschnitt 19 gezeigte Tabelle erstellt. 
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Dazu verwenden wir die bisher nicht benutzten 0,0-Elemente unseres 
Arrays. 


Die verkauften Stückzahlen werden hier addiert. 


er, 


(0,0) (0,1) (0,2) 
(1,0) 
(2,0) 
(3,0) 
(4,0) 
(5,0) 
(6,0) 
(7,0) 
(8,0) 


Die von jedem Clubmitglied verkauften Gesamtstückzahlen werden in 
der ersten Spalte eingetragen. 


Füllen Sie bitte die leeren Stellen im nachfolgenden Programm aus. 
Zeile 130 setzt alle Array-Elemente auf 0, beginnend mit dem 0,0-Ele- 
ment. Zeile 320 addiert die Gesamt-Umsätze jedes Clubmitglieds, Zeile 
350 schließlich addiert die verkaufte Stückzahl. 


100 REM***SUESSIGKEITEN—-ZAEHLER 
110 REM***INITIALISIERUNG 

120 DIM A(8,2) 

130 FOR X=0 TO 8:FOR Y=0 TO 2 


140 A(X,Y)=0 


150 NEXT Y:NEXT X 

200 REM***LIES DATEN UND PRUEFE AUF DAS FLAG 

210 READ K,C,Q:IF K=—-1 THEN 310 

220 A(K,C)=A(K,C)+0:GOTO 210 

300 REM***VERKAUFTE ANZAHL UND 

301 REM***GESAMTUMSATZ IN DM 

Ba: EDEL TEN Gen aaa sen arme vn me Teer 3a, Bere ra Danke 
320 A(K,0)=A(K,1)*1.00+A(K,2)*.50 

330 A(0,0)=A(0,0)+A(K,0) 


"987 


340 FOR Ge ua aaa sn arm aa aan ie Baar ae ai ar 
350 A(0,C)=Al0,C)+AlK......2.csc cr en. ) 

Su MERKT Ba ca san ar ee Kreiae He Pie re An nn er 
370 REM***BERECHNE DEN VERDIENST 

880. PI=AlOLTI".BEIFZ>e „neun ne a a ER ni 
390 P=P1+P2 

310 FOR K=1 TO8 

340 FOR C=1 TO2 

350 A(0,C)=A(0,C)+A(K,C) 

360 NEXTC:NEXTK 

380 P1=A(0,1)*.55 : P2=A(0,2) *.30 


29. Haben Sie verstanden, was in den Zeilen 320, 330 und 350 ge- 
schieht? Wenn nicht, lesen Sie alles nochmals gründlich durch und 
beschäftigen Sie sich mit diesem Problem. Diese Statements sind von 
entscheidender Bedeutung für das Verständnis dieser Art von Pro- 
bleme. 


Tragen Sie in der folgenden Abbildung, in den bezeichneten Feldern, 
diejenigen Zeilennummern ein, die Werte für diese Felder erzeugen. 


(0,0) (0,1) (0,2) 
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(0,0) (0,2) 
(1,0) 
(2,0) 
(3,0) 
(4,0) 
(5,0) 
(6,0) 
(7,0) 
(8,0) 


(0,1) 





30. Was beweirkt Zeile 330 in Abschnitt 28? ..... 2.2222 csse00 0 


PR ar Bar Da ar ae Ba Dar Bar ar Do Bar Dar Tor Dar ER Wr Dur DE DE BL Dur Der Dur Dur Dur Doc Dur Dar Dur Bar Dur Dur Dr zur DL HE BL Bar Br Bor Doc Zu Bu Bu ur Kur ur Ser Bu er Er zur u 


akkumuliert die Gesamt-Umsätze in A(0,0) 


31. Versuchen Sie zu beschreiben, was das Statement P=P1=P2 in 
28118390, DEWITKE:. u aan a vr ee eh 


res 


Es berechnet den Gesamtgewinn und weist ihn der Variablen P zu 


32. Jetzt können wir den Abschnitt unseres Programms, der für den 
Ausdruck sorgt, auf den letzten Stand bringen. Bitte füllen Sie dazu die 


“ leeren Stellem im folgenden Programm aus: 


RUN 

NUMMER SUMME SCHOK. GEL.FR. 
1 0 0 0 

2 3 0 

3 0 0 0 

4 6 3 6 

5 10 6 8 

6 0 0 0 
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7 0 0 0 


8 12 6 12 
SUMMEN: 31 18 26 
GEWINNE: 12.2 9.9 7.8 


400 REM***DRUCKE LISTE 
410 PRINT “NUMMER” 
420 FOR K=1 TO8 

430 PRINT 
440 FOR C= 


ne ee ee re ÜREETITE ar ara 


TIER SE Diana EEE NE ee arerisrg 
SR ESEn a Biaie E  ee ERree e e 
ET EEE ae BL ER EEE ann 


SIR BR BISTRLE IE ENEETETE ETTENTE EE EEE rer rer Huang it 


480 PRINT "SUMMEN: ”‘,A(0,0),A(0,1),A(0,2) 
490 PRINT “GEWINNE:” 


400 REM***DRUCKE LISTE 

410 PRINT “NUMMER”, "SUMME ‚“SCHOK.”,"GEL,FR.” 
420 FOR K=1 TO8 

430 PRINTK, 

440 FORC=0 TO2 

450 PRINT A(K,C), 

460 NEXT C:PRINT 

470 NEXTK 

480 PRINT "SUMMEN: ”,A(0,0),A(0,1),A(0,2) 

490 PRINT : PRINT "GEWINNE:”,P,P1,P2 


u EEE N ER EEE ei ig 


Hier finden Sie jetzt abschließend das Listing für das komplette Pro- 
gramm. ; 


100 REM***SUESSIGKEITEN-ZAEHLER 

110 REM***INITIALISIERE 

120 DIM A(8,2) 

130 FOR X=0 TO 8:FOR Y=0 TO 2 

140 A(X,Y)=0 

150 NEXT Y;NEXT X 

200 REM***LIESDATEN UND PRUEFE AUF DAS FLAG 
210 READ K,C,O:IF K=--1 THEN 310 

220 A(K,C)=A(K,C)+Q:GOTO 210 





300 
301 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


REM***GESAMTSTUECKZAHL UND 
REM***GESAMTUMSATZ IN DM 
FOR K=1 TO 8 
A(K,0)=A(K,1)*1+A(K,2)*0.5 
A(0,0)=A(0,0)+A(K,0) 

FOR C=1TO2 

A(0,C)=A(0,C)+A(K,C) 

NEXT C:NEXT K 
REM***BERECHNE DIE GEWINNE 
P1=A(0,1)*0.55:P2=A(0,2)*0.3 
P=P1+P2 

REM***PRINT LISTE 

PRINT “NUMMER” ,“SUMME” ‚“SCHOK.”,”GEL.FR.“ 
FOR K=1 TO 8 

PRINTK, 

FORC=0 TO2 

PRINT A(K,C), 

NEXT C:PRINT 

NEXTK 

PRINT "SUMMEN: ”,A(0,0),A(0,1),A(0,2) 
PRINT :PRINT “GEWINNE:“,P,P1,P2 
DATA 4,1,3, 4,2,6 

DATA 5,1,6, 5,2,8, 2,1,3, 2,2,0 
DATA 8,1,6, 8,2,12, —1,—1,—1 


32. Nun noch eine letzte Anwendung für doppelt-indizierte Arrays: In 
einer kleinen Klasse mit 8 Schülern hat jeder an vier Klassenarbeiten 
teilgenommen und dabei die nachfolgenden Punktzahlen erreicht. 


Arbeit 1 Arbeit 2 Arbeit 3 
Schüler 1 65 57 71 
Schüler 2 80 90 91 
Schüler 3 78 82 77 
Schüler 4 45 38 44 
Schüler 5 83 82 79 
Schüler 6 70 68 83 
Schüler 7 98 92 100 
Schüler 8 85 73 80 


Arbeit 4 
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S(B,J) soll die Punktzahl sein, die von Schüler B in der Klassenarbeit J 
erreicht wurde. S(5,2) ist dann die Punktzahl, die Schüler ........... 
in der Arbeit...... erzielte. Wie groß ist der Wert von S(5,2)? ...... 


33. In einer anderen Klasse könnten beispielsweise 30 Schüler sitzen, 
von denen jeder 5 Klassenarbeiten geschrieben hat. Noch eine weitere 
Klasse hat vielleicht 23 Schüler mit je 7 Klassenarbeiten, usw. Wir 
wollen daher ein Programm schreiben, um die Punktzahlen von N 
Schülern bei Q Klassenarbeiten/Schüler einzulesen. 


100 REM***KLASSENARBEIT-AUSWERTUNGSPROGRAMM 
110 DIM S(30,10) 


Das DIM-Statement ist für biszu ..... 
Klassenarbeiten geeignet. 


34. Als nächstes wollen wir die Werte von N und O für die in Abschnitt 
32 abgebildete Punkte-Tabelle einlesen. Für diese Daten ist der Wert 
von N (Anzahl der Schüler) ........ und der Wert von Q (Anzahl der 
Klassenarbeiten)) ı saswun u snänwus rs ara 


35. Wir setzen die Werte für N und O, sowie die Punktzahlen in DATA- 
Statements ein. Das Programm sieht dann folgendermaßen aus: 


100 REM***KLASSENARBEIT-AUSWERTUNGSPROGRAMM 
110 DIM S(30,10) 

900 REM***ZEILE 910: WERTE VONN UNDQ 

910 DATA 84 4 ————————— Werte von Nund Q 
919 REM***LIES DIE PUNKTZAHLEN 


920 DATA 65,57,71,75 
930 DATA 80,90,91,88 
940 DATA 78,82,77,86 
950 DATA 45,38,44,46 
960 DATA 83,82,79,85 
970 DATA 70,68,83,59 
980 DATA 98,92,100,97 
990 DATA 85,73,80,77 


(N x Q) — Array der Punkte- 
zahlen aus Abschnitt 32 


Jetzt sind Sie daran! Vervollständigen Sie bitte die nachfolgende Zeile 
120, mit der die Werte für N und Q eingelesen werden. 


EI a a ER A ad a en na ie de a 


120 READN,Q 


36. Die durch Zeile 120 in Abschnitt 35 gelesenen Werte für N und Q 
werden aus welchem DATA-Statement gelesen? . . 2. cc. 


Zeile 910 


37. Jetzt wollen wir das NxQ-Array der Punktzahlen, unter Verwen- 
dung von FOR-NEXT-Schleifen, einlesen. Füllen Sie dazu bitte die 
leeren Stellen in den nachfolgenden Statements aus. 


130 FORX=1 TON: FORY=.... :READ .... NEXT Y:NEXTX 


130 FOR X=1 TO N:FOR Y=1 TO Q:READ S(X,Y):NEXT Y:NEXT X 


38. Die durch Zeile 130 gelesenen numerischen Werte sind in den 
DATA-Statements von Zeile....... BIS. „eu; gespeichert. 


39. Nachdem wir das Array nun im Computer haben, — was fangen wir 
damit an? Beispielsweise könnte uns die mittlere Punktzahl eines jeden 
Schülers interessieren. Fangen wir damit einmal an, beginnend mit 
Zeile 200. 
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200 REM***BERECHNE UND DRUCKE DIE 
201 REM***DURCHSCHNITTSWERTE 

210 PRINT "SCHUELER”,“DURSCHNITT“ 
220 FOR B=1 TON 
230 LET T=0 

240 FOR J=1 TOQ 
250 LET T=T+S(B,J) 
260 NEXT J 

270 LET A=T/Q ——————— Durchschnittswert von Schüler B 
280 PRINT B,A #———— ——— Schülernummer und Durchschnitt 
290 NEXT B#————Berechne die Werte für den nächsten Schüler 


Berechne die Summe der Punkte für Schüler B 


Die Zeilen 230 bis 280 werden für jeden Schüler ausgeführt. Das heißt, 
zunächst für B=1, dann für B=2 usw., bis zu B=N. Welcher Wert für T 
wird für B=1 durch die Zeilen 230 bis 260 berechnet? T= ......... ? 


268. Das ist die Summe der vier Punktzahlen von Schüler 1. Erinnern 
Sie sich: Q ist 4. Daher wird Zeile 250 für J=1, J=2, J=3 und J=4 ausge- 
führt. 


40. Welcher Wert von A wird für B=1 durch Zeile 270 berechnet? 
A=T/QO= 


67; A=T/Q=268/4=67 


41. Hier nun das vollständige Programm und ein Lauf. 


100 REM***KLASSENARBEIT-AUSWERTUNGSPROGRAMM 
110 DIM S(30,10) 

120 READ N,Q 

130 FOR X=1 TO N:FOR Y=1 TOQ 

140 READ S:S(X,Y)=S 

150 NEXT Y:NEXT X 

200 REM***BERECHNE UND DRUCKE DIE 
201 REM***DURCHSCHNITTSWERTE 

210 PRINT “SCHUELER”,“DURCHSCHNITT” 
220 FOR B=1 TON 

230 T=0 


RUN 


SCHUELER 


, Jetzt 


ben, 


FOR J=1 TOQ 
T=T+S(B J) 

NEXT J 

A=T/Q 

PRINT B,A 

NEXT B 

REM***ZEILE 910:WERTE VONN UNDQ 
DATA 8,4 
REM***PUNKTZAHLEN 
DATA 65,57,71,75 
DATA 80,90,91,88 
DATA 78,82,77,86 
DATA 45,38,44,46 
DATA 83,82,79.85 
DATA 70,68,83,59 
DATA 98,92,100,97 
DATA 85,73,80,77 


DURCHSCHNITT 


sollen Sie, beginnend mit Zeile 300, ein Programmsegment schrei- 
das die durchschnittliche Punktzahl für jede Klassenarbeit be- 


rechnet und ausdruckt. Für die in diesem Programm verwendeten 
Daten sehen die Ergebnisse fogendermaßen aus: 


RUN 
ARB 
1 


2 
3 
4 


EIT DURCHSCHNITT 
75.5 
72.75 
78.125 
76.625 
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maBlterie Jar urn Rd Be Er LETTER Areale re ee are Wale sa. Wr 
RE ae ee a euere ee ee ee ee 
RE BE RE ET ER ae ee re EEE u aeree Burma 
m... er BEE ER EETERT ee une Eur en lu ae 
RITTER ALTEN EEE EEE Ei re ai east Ira 
vw nee ne ee ee se ae ER ramiene are re ee 
-_ nn TATEN VEEATTEWIR GE Bralianin ara ei rue ke Eee ee 
mn RAM re Bee tee ee ee ae aereeeeene 
MR EWR BE a a re are TE ne ren ee 
wie N AERO MIETE in a ee re te ee are ie ee 


300 REM***BERECHNE UND DRUCKE DEN DURCHSCHNITT 
301 REM***JEDER ARBEIT 

310 PRINT “ARBEIT”, “DURCHSCHNITT” 
320 FOR J=1 TOQ 

330 LET T=0 

340 FOR B=1 TON 

350 LET T=T+S(B,J) 

360 NEXT B 

370 LET A=T/N 

380 PRINT J,A 

390 NEXT J 


42. Nehmen wir einmal an, 10 Studenten nehmen an einem Multiple- 
Choice-Test teil, der 10 Fragen mit jeweils vier möglichen Antworten 
je Frage umfaßt. Wir möchten jetzt gern wissen, wieviele Studenten 
bei Frage 1 die Antwort 1, wieviele die Antwort 2 usw. gaben. 

Hier sehen Sie die von 7 Studenten gegebenen Antworten. Für jeden 
Antworten-Satz ist ein DATA-Statement vorgesehen. Das letzte State- 
ment gilt für einen fiktiven’ Studenten und dient lediglich als Daten- 
Ende-Flag. 


900 REM***ANTWORTEN DER STUDENTEN 
910 DATA 2,3,1,1,1,2,4,3,4,1 
920 DATA 2,3,2,4,1,2,4,2,1,1 
930 DATA 2,3,2,4,1,2,4,2,1,1 
940 DATA 3,2,4,1,1,2,3,3 4,1 
950 DATA 2,3,4,1,1,3,4,3,4,1 
960 DATA 2,12,3,12,4,34.2 
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970 DATA 3,4 ,1,1,1,4,3,1,4.2 

980 DATA -1,0,0,0,0,0,0,0,0,0 “fiktiver Student” 
In jeder Datenzeile ist die erste Zahl die Antwort auf Frage 1, die 
zweite die Antwort auf Frage 2 usw. Student 1 (Zeile 910) gab bei 
frage 3 die Antwort 1. Student 5 (Zeile 950) gab auf Frage 9 die 
Antwort ..... ‚ Student 7 (Zeile 970) gab Antwort ..... auf Frage 1. 


43. Bitte vervollständigen Sie die folgende Tabelle. Sie gibt für jede 
Frage an, von wievielen Studenten die einzelnen möglichen Antworten 
gewählt wurden. 


Antwort 1 Antwort 2 Antwort 3 Antwort 4 
Frage 1 0 5 2 0 
Frage 2 1 770 
DE en — a re 
4 1 
2 3 0 2 


44. In Abschnitt 43 haben wir, mit Ihrer Unterstützung, gezeigt wie die 
7 Studenten die ersten drei Fragen beantwortet haben. Die Ergebnisse 
sind angeordnet wie ein 3x4-Array. Wenn wir diese Tabelle für sämt- 
liche 10 Fragen fortgesetzt hätten, würde sie aussehen wieein..... x 4 
Array. 


45. Wir wollen jetzt ein Array T mit 10 Reihen und 4 Spalten defi- 
nieren, das die Anzahl der für jede Frage gegebenen Antworten (wie in 
der Tabelle in Abschnitt 43) aufnimmt. Bitte vervollständigen Sie das 
nachfolgende DIM-Statement. 


100 REM***TEST-ANALYSE-PROGRAMM 
110 DIM 


nee m TEE EEE ne are a EEE ER ERE  e 


110 DIM T(10,4) 


46. Von jedem Studenten wurden 10 Antworten gegeben. Wir wollen 
daher noch eine Antworten-Liste A(1) bis A(10) definieren. Bitte ver- 
vollständigen Sie auch dieses DIM-Statement: 


TED: NM aas a RE En a nina nenne nr ar 


120 DIM A(10) 

47.Wir können Speicherplatz sparen, wenn wir beide DIM-Statements 
zu einem zusammenfassen. 

110 DIM T(10,4),A(10) 


Dieses DIM-Statement definiert ein ...... mit der Bezeichnung T mit 
maximal 10 Reihen und 4 Spalten, sowie ein een mit 


zweidimensionales Array, Matrix oder Tabelle 
eindimensionales Array, Liste oder Vektor 


Achten Sie darauf, daß ein Komma zur Trennung von T(10,4) und 


. A(10) benötigt wird. 
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48. Hier ist der Anfang eines Programms, durch das die Antworten der 
Studenten gelesen und das Array T berechnet wird. 


100 REM***TEST-ANALYSE-PROGRAMM 
110 DIM T(10,4),A(10) 


Als nächstes müssen wir das T-Array, das die Anzahl der abgegebenen 
Antworten für jede Frage enthält, initialisieren. Das heißt bekanntlich, 
daß wir alle Array-Elemente auf Null setzen. 


Bitte führen Sie die entsprechenden Statements aus, 


120 REM***INITIALISIERUNG 
130 


na EI TEEE Era ee lee ee RE Br ee 


nn BT iur ie a ei ee Se ee na 


120 REM***INITIALISIERUNG 
130 FOR X=1 TO 10:FOR Y=1 TO4 
140 T(X,Y)=0 

150 NEXT Y:NEXT X 


49. Schreiben Sie bitte ein Statement zum Lesen der Liste A (Ant- 
worten eines Studenten): 


200 REM***LIES EINEN ANTWORTENSATZ 
210 


An Alone u EEE RURTEEN Fi ED FE Erna aa ea 
RER HERREN ER ELLE TREE an a REEL TE w  ree 
NE BESTER a DE VDE TE RT ET ARTE DE Dahrienins re 


200 REM***LIES EINEN ANTWORTENSATZ 
210 FOR X=1 TO 10 

220 READ A:A(X)=A 

230 NEXT X 


50. Natürlich müssen wir bei jedem Lesen auch prüfen, ob wir evtl. 
bereits am Daten-Ende-Flag angelangt sind. Sie erinnern sich sicher- 
lich daran, daß wir am Ende der Daten einen “fiktiven‘ Studenten 
vorgesehen hatten. Wenn das Programm bei diesem "Datensatz’' ange- 
langt ist, sollen die Antworten ausgedruckt werden, und zwar be- 
ginnend mit Zeile 510. Vervollständigen Sie zunächst das folgende 
IF-THEN-Statement. 


. 140 REM***PRUEFEN AUF DAS DATENENDE 


A 1 EEE THEN 510 


51. Solange noch wirkliche Daten eingelesen werden, soll der laufende 
Zähler im T-Array ständig auf den neuesten Stand gebracht werden. 
Wir haben diese Aufgabe folgendermaßen gelöst: 


300 REM***SUMMEN IM T-ARRAY 
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310 FOR Q=1 TO 10 
320 T(Q,A(Q))=T(0,A(Q))+1 
330 NEXTQ 


Hier sehen Sie die Antworten eines Studenten. Es handelt sich dabei um 
die Werte für A(1) bis A(10). 


23,1,1,1,2,4,3,4,1 
Nehmen Sie an, Q ist 1. Dann ist A(Q)=.......... und T(Q,A(0O)) ist 
FI ae scan were ie Te ). 


2; T(1,2) (daQ=1 und A(Q)=2) 


52.Was geschieht im obigen Programmsegment, wenn der Computer 
Zeile 320 mit den angegebenen Daten ausführt? ...........22c0r00. 


Die Summe in T(1,2) wird um 1 erhöht. 


53.Da die Zeile 320 in einer FOR-NEXT-Schleife liegt, wird sie für 
jeden Wert von Q ausgeführt, der durch das FOR-Statement spezifi- 
ziert ist, das heißt für Q=1,2,3,4,5,6,7,8,9 und 10. Welches Element 
der T-Matrix wird für Q=10 um 1 erhöht? TÜ ........2cscsnee ) 


T(10,A(10)) oder T(10,1) für die Daten in Abschnitt 51. 


54. Machen wir weiter! Nachdem wir die Antworten eines Studenten 
aufaddiert haben, möchten wir, daß der Computer zur Zeile 210 
zurückgeht und einen weiteren Antwortsatz einliest (siehe Abschnitt 


49). 


400 REM***EIN WEITERER ANWORTENSATZ 
410 GOTO 210 


Dann wird das IF-THEN-Statement erneut ausgeführt. Es veranlaßt 
den Computer, zur Zeile 510 zu springen, sobald der Datensatz des 
“fiktiven’ Studenten gelesen wird. In dem Fall möchten wir, daß die 
Überschriften und Ergebnisse ausgedruckt werden und der Computer 
anschließend anhält. 
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Ein Lauf sollte dann so aussehen: 


Ai A2 A3 A4 
S 1 0 5 2 0 
2 1 1 4 1 
53 2 3 0 2 
Ss4 4 0 1 2 
Ss5 7 0 0 0 
S6 0 5 1 1 
Ss7 0 0 2 5 
Ss8 1 2 4 0 
sg 2 0 0 5 
S10 5 2 0 0 
Vervollständigen Sie bitte diesen Programmabschnitt: 
500 REM***DRUCKE DAS T-ARRAY 
501 REM***A=NUMMER DER ANTWORT 
502 REM***S=NUMMER DES STUDENTEN 
510: PRINT" AI AZUa Age Age 
520 FOR X=1 TO 10:PRINT "X; "; 
DE 1 NR ae ie aaaeie eat era gr 
1 ARENA EEE Naked 
530 FOR Y=1 TO 4:PRINT T(X,Y), 
540 NEXT Y:PRINT:NEXT X 
Hier ist das vollständige Listing des Programms: 
100 REM***TEST-ANALYSE-PROGRAMM 
110 DIM T(10,4),A(10) 
120 REM***INITIALISIERE 
130 FOR X=1 TO 10:FOR Y=1 TO 4 
140 T(X,Y)=0 
150 NEXT Y:NEXT X 
200 REM***LIES EINEN ANTWORTENSATZ 
210 FOR X=1 TO 10 
220 READ A:A(X)=A 
230 NEXT X 


301 


302 


240 
250 
300 
310 


REM***PRUEFEN AUF DAS DATENENDE 
IF A(1)=—1 THEN 510 

REM***SUMMEN IM T-ARRAY 

FOR Q=1 TO 10 


320 T(Q,A(OQ))=T(Q,A(Q))+1 


330 
400 
410 
500 
501 
502 
510 
520 
530 
540 
900 
910 
920 
930 
940 
950 
960 
970 
980 





NEXTQO 

REM***EIN WEITERER ANTWORTENSATZ 
GOTO 210 

REM***DRUCKE DAS T-ARRAY 
REM***A=NUMMER DER ANTWORT 
REM***S=NUMMER DER STUDENTEN 
PRINT” A1',” A2”” As3"," A4” 
FOR X=1 TO 10:PRINT *'S",xX;" "'; 

FOR Y=1 TO 4:PRINT T(X,Y), 

NEXT Y:PRINT:NEXT X 
REM***ANTWORTEN DER STUDENTEN 
DATA 2,3,1,1,1,2,4,3,4,1 

DATA 2,3,2,4,1,2,4,2,1,1 

DATA 2,3,2,4,1,2,4,2,1,1 

DATA 3,2,4,1,1,2,3,3,4,1 

DATA 2,3,4,1,1,3,4,3,4,1 

DATA 2,1,2,3,1,2,4,3,4,2 

DATA 3,4,1,1,1,4,3,1,4.2 

DATA -1,0,0,0,0,0,0,0,0,0 


EIGENTEST 


Die folgenden Aufgaben sollen Ihnen helfen, noch einmal die An- 
wendung aller BASIC-Instruktionen zu üben, die etwas mit Zahlen- 
Arrays zu tun haben, die doppelt-indizierte Variable enthalten. 


1.Kreuzen Sie an, welche der ‚nachfolgenden, doppelt-indizierten 
Variablen in BASIC gültig sind. 


re a) X(2+2) ...:0. b5)X(5,5) 
TIERE c) X1(100,100) “2... 0) X(AtB,C) 
er e) X(X(1,2),X(2,1) urn. FI X(A,A) 


Die Fragen 2 bis 7 bezeihen sich auf das folgende Array: 
Spalte 1 Spalte 2 


Reihe 1 1 2 
Reihe2 3 4 
Reihe3 5 6 


2. Welche Dimensionen hat A? 


RE Rare are a a ee 


ET NE TUE RE ann a nen NE DER ee er 


4.Welche Variable lokalisiert die Position in der dritten Reihe und 
zweiten Spalte von A? 


REEL EB a ar a TR he 


5. Wie lautet der Wert der folgenden Array-Elemente? 
BAER) aan b) A(3,1) 


-6.X Soll 2 und Y=3 sein. Wie lautet dann der Wert der folgenden 


Array-Elemente? 


TAN) anne BYANRELNT) was ca 


7. Wie groß ist der Wert von A(A(1 ‚2),A(2,1)—1)? 


.. 1.1.1001 712. 


8.Schreiben Sie ein Programm, das zwei FOR-NEXT-Schleifen ver- 
wendet, um ein 10x10-Array (M) mit Nullen zu füllen. 


nr ERITREA ERBE ERE IE FREE ARE IT DR DE I an da a 


RE ET EEE TEE ET ELET RA re ae RE ae 
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. ern ne 
een 


en nene 
FIRE Er Tr Yu ae ar Vor Bar Ber DR DR GEL DH SE mE I mE Sr YoL Tor Sur Mur ve Bar ar Jur IuL 707 ur Tor BE DL DL 7 Sur zur zur Ber JEsr Jr EZ Ber Br I Sur 


ee ae ee ehe een 


.. . 
PR ar Ba Bar Ba ar ar Tor Ba Bar Bar Do BE DEE DL vor Dur ur Du Bor Dur Dur Br Dur BE BE EL Dar Dur Br u Bu Bar Ber Bor Sur Dur Bar Bu BEE Be Sue ur BEE Zur BEE BE Bee Zar Br zer 


9. Für Ihren Stadtteil soll eine Einwohnerstatistik erstellt werden. Unter 


anderem möchte man gern die Altersverteilung und die Anzahl der 
männlichen und weiblichen Einwohner ermitteln. Man bittet Sie, 
IhrenHeimcomputer zu programmieren, um die mit dem nachfolgen- 
den Formular erfaßten Daten zu verarbeiten und eine Übersicht zu 
erstellen, die dem am Schluß angegebenen Muster entspricht. 


Hier zunächst einmal das Erhebungsformular. 


EINWOHNERBEFRAGUNG 
(Bitte kreuzen Sie ein Feld für jede Frage an) 


Frage 1: Altersgruppe Frage 2: Geschlecht 

1. jünger als 10 1. männlich 
.10 — 15 2. weiblich 
.16 — 21 
.22 — 30 
.31 — 40 
.41 —50 
51 — 65 
. über 65 


















SD PWMN 


Verwenden Sie in Ihrem Programm die folgenden DATA-Statements. 


910 REM***DATEN: ALTERSGRUPPE-GESCHLECHT 

910 DATA 1 2,2,1,3,2,4,1,5,2,6,2,7,2 

920 DATA 8,1,1,2,1,1,2,1,2,2,3,1,3,1 

930 DATA 3,2,3,1,3,2,4,1,4,2,5,1,5,1 

940 DATA 5,2,5,2,6.1,6,2,7,1,7,2,7,2 

950 DATA 7,2,8,1,8,1,8,2,8,2,3,1,4,2 

960 DATA 5,2,6,1,6,1,7,1,8,2,—1,—1 

969 REM***TABELLEN-UEBERSCHRIFTEN 

970 DATA ( 10,10-15,16-21,22-30,31—40,41--50,51-—65, ) 65 


RUN 
ALTER SUMME MAENNL. WEIBL. 
(10 3 1 2 


10-15 
16—21 
22-30 
31-40 
41-50 
51-65 
)65 
SUMMEN 


POOTITO PNGD 
=-@$D@ODPNDDNDRMN 
NoOPRNPNW— 


..—.. .....—......m—..m.„..... ee Veen 
...- 0, 0, Tr Tree 
m... 0. 0 1 TEE Er eeeeereeeeeenene 
Keane Do nee ie ne ee re ee ee ee ee 
.. .. ..."."„„eunreaonn oe Tree erkenne 
.....,, 1, 11, 0, 1, n,. . , 71er ren 
.................—" been 
nr eine ee tet ee ae ae ehr ee 
...... . ..„„e_eon..... rn. ........m...—".—...„........C.e.._e.n.. 
won. nr ea une ee een ee aeneeeeehee 
..... . 878 Te Tr 11T Tr Tr rTTrTrr Tee. 
.......—. ..— 0. 1000 een 
erheben ne 
oe ee, ee 
vendeur een a tee 
eure fuer ee eeaneene ae 

Ce kauen ee re ne ee ee ne et ee 

vu... n..n....„„.n. nn... ne hear 

. .—.. . .. nm... mann ba oo error eee 


-_......... nm... .... mn... 0 een 


. Ihr Schwager ist Besitzer eines Jeans-Geschäfts. Er hat ein sehr 


großes Angebot mit einer umfangreichen Auswahl, möchte seinen 
Bestand aber etwas reduzieren. Die Frage ist nur, bei welchen 
Artikeln er damit anfangen soll. Daher bittet er Sie, Ihren Computer 
dazu zu benutzen, seine Verkäufe zu analysieren und ihm bei der 
Entscheidung zu helfen, welche Artikel er auswählen soll. Als erstes 
möchte er gern die Artikelgruppe “Kinderhosen’ untersuchen. Er 
führt 9 verschiedene Modelle, jedes in drei Farben. Für Ihr Pro- 
gramm sollten Sie die Modelle mit 1 bis 9 und die Farben mit 1 
bis 3 numerieren, sodaß jeder Datensatz folgendermaßen aussieht: 
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DATA _1, 2, 12 


Modell Nr. Farbe Nr. 


Schreiben Sie bitte ein Programm zur Verkaufsanalyse und bereiten 
Sie eine Aufstellung vor, die so aussieht wie das am Schluß der 
Aufgabe abgebildete Beispiel. 


Verkaufspreis 


In Ihrem Programm verwenden Sie bitte die folgenden DATA- 
. Statements. 


900 REM***MODELL,FARBE,UMSATZ IN DM 
910 DATA 1,1,12, 1,2,13, 1,3,14 
911 DATA 2,122, 2,2,10, 2,3,12 
912 DATA 3,1,45, 3,2,14, 3,3,32 
913 DATA 4,1,13, 4,2,10, 4,3,15 
914 DATA 5,1,12, 5,2,13, 5,3,12 
915 DATA 6,1,12, 6,2,12, 6,3,12 
916 DATA 7,1,12, 7,2,12, 7,3,12 
917 DATA 8,1,14, 8,2,14, 8,3,14 
918 DATA 9,1,15, 9,2,15, 9,3,15 
919 DATA 3,2,35, 5,1,50, 6,1,36 
920 DATA 9,3,12, 2,3,40, 5,1,24 
921 DATA 3,3,14, 4,1,48, 1,1,12 
922 DATA 2,1,12, 3,1,13, —1,—1,—1 


Hier ist der Teil des Programms, der die Tabelle ausdruckt. Schrei- 
ben Sie bitte den Rest. 


300 REM***DRUCKE TABELLE 
310 PRINT “S TOT. DM“,”FARBE 1°,"FARBE 2”,”FARBE 3" 
320 FORS=1 TO9 

330 PRINT S; “;T(S,0), 

340 FOR C=1 TO 3 

350 PRINT T(S,C), 

360 NEXT C:PRINT 

370 NEXTS 

380 FOR X=0 TO 3 

390 PRINT “T=";T(0,X), 

400 NEXT X 


2 ERTNE IE EREBEETENT. ARE EEE TEE ET LTE EN RS rare ren ae 


TE TE LE Re Er ERLERNTE EI Fee ae de ea ner 


BER WERE MEHR ER BR RER TE ETETE E EE S TREIE-Ee eeee ane Eee 


EEE EEE I Bine ae ne RER AED ee te ir 


aa ER BrBeter Be RR N TER ERTEN a aa aa ine 


RR TÜR. PRRETRE TE Ra ah B e ERTENETTE EEE ae run 5 ET 


ENEMI HE EIDEER ER E a Bene RE ET ee 


U Een OFEN TE TEEN Di eat FE ee ROTEN Dia men inne 


Ya RER RR BE EEE Ei Bapliee RE EEE Tee ee arena Re 


RE EUER ME Bee a re EEE RR tee ee ehe ne 


oosouıpPwnwm_-nz 
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Ss10 FRINT "ALTER", "SUMME", "MAENNL.", "WEIBL. " 
320 FÜR A=1 TO 8 

S30 READ A$:FRINT A$,V(A,O), 

>40 FOR S=1 TO 2 


Antworten zum Eigentest 


Die Zahlen in Klammern geben die Abschnitte an, in denen der je- 350 PRINT V(A,8), 
weilige Stoff behandelt wurde. 360 NEXT S:FRINT :NEXT AsPRINT 
, ' 370 FRINT "SUMMEN" ,V(0,0),V(0,1),V(0,2) 
1.b), d), e) und f) sind gültig (längere Variablennamen, wie z.B. c) 900 REM XXXDATEN: ALTERSGRUFPE-GESCHLECHT 
können bei Ihrem Computer evtl. zulässig sein. Bitte überprüfen 910 DATA 1,2,2,1,3,2,4, 1,5, 26,2, 7,2 
Sie Ihr Manual daraufhin). (Abschnitte 5 — 7) 720 DATA 8,1,1,2, 141,2,1,2,2,3,1, 3,2 
h , 930 DATA 3,2,3,1,3,2,4, 1,4,2,5,1, 9,1 
2. 3,2 bedeutet: 3 Reihen, 2 Spalten (Abschnitte 2 — 4) 940 DATA 5,2,5,2,6, 146,247, 147524752 
950 DATA 7,2,8,1,8,1,8,2,8,2,3,1,4,2 
3.100 DIM A(3,2) (Abschnitte 12) 960 DATA 5,246,1565, 147, 1, da -ly el 
: 969 REM WKKTABELLEN-UEBERSCHRIFTEN 
4. A(3,2) [Abschnitte 9:11) 970 DATA «10, 10-15, 16-21, 22-30, 31-40, 41-50, 
5.2) 1; b)5 (Abschnitt 11) 51-65, >65 
6.2) 4: b) 6 (Abschnitte 11) Aabsehnite 18) 
10. 
7.4 (Abschnitt 11) 
100 REM XXKKVERKAUFS-ANALYSE 
8. 10 DIM M(10,10) 110 REM XXX INITIALISIERE 
20 FOR R=1 TO 10 120 DIM T(9,3) 
30 FOR C=1 TO 10 130 FOR S=0 TO 9:FÜOR C=ö TO 5 
e 140 T(5,C)=Ö0 
a ee 150 NEXT C=NEXT 8 
60 NEXT R (Abschnitt 12) =00 REM X#XLIES, FRUEFE UND AKKUMULIERE 
210 READ S,C„D:IF S=-1 THEN Z10 
9. j 220 T(S,C)=T(5,C)+D 
230 T(0,0)=T(0,0)+D 
100 REM XXXBEVOELEERUNGSANALYSE 240 T(O,C)=T(0,C)+D 
110 REM X*%*INITIALISIERE 250 T(S,0)=T(8,0)+D 
120 DIM V(8,2),A$ (6) 2&0 GOTOD ?10 
150 FOR A=0 TO 8:FOR S=0 TO 2 200 REM *X*XDRUCKE TABELLE 
140 V(A,SI=0 >10 FRINT "S DM","FARBE 1", "FARBE 2", "FARBE 3" 
150 NEXT S:NEXT A =20 FOR S=1 TO 9 
200 REM *X#%kLIES DATEN, FRUEFE, AKEUMULIERE 330 PRINT S;" "5T(8,0), 
210 READ A,„S:IF A=-1 THEN 310 340 FOR C=1 TO 3 
220 V(A,RÄSI)=V(A,ÄS)+1:V (0,0)=V (0,0) +1 >30 FRINT T(S,C), 
230 V(0,5)=V (0,5) +13 V (A,O)=V (A,ÄÖO)+L 360 NEXT CH PRINT 
240 G0TO 210 370 NEXT 8 
200 REM CKKDRUCHKE LISTE 380 FOR X=0 TO 5 


308 309 


310 


390 
400 
FO0 
910 
a dp 
912 
913 
914 
915 
916 
917 
918 
919 
920 
2, 
922 


PRINT "T="5T(0,%), 
NEXT X 


REM %X%%kMODELL, 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,1, 12; 
2, 1,0, 
3,1,45, 
2,1,.3%, 
5,1,12, 
&,1,12, 


1,2,13, 
2,2,10, 
3,2,14, 
4,2,10, 
5,2,13, 


5,2,12, 


FARBE, 


UMSATZ IN DM 


1,3,14 


(Abschnitt 32) 





KAPITEL 9 


String-Variable und String-Funktionen 


In Kapitel 3 zeigten wir Ihnen bereits einige Möglichkeiten zur Ver- 
wendung alphanumerischer String-Variablen. Aber auch in den folgen- 
den Kapiteln haben wir, bei der Einführung neuer Programmier-Kon- 
zepte, String-Variable verwendet. In diesem Kapitel nun wollen wir 
noch einmal wiederholen, was Sie über String-Variable bereits wissen 
und Ihnen gleichzeitig natürlich auch noch eine Menge neuer Kennt- 
nisse vermitteln. Sie werden dabei feststellen, daß für String-Variable 
ganau so viele Manipulationsmaöglichkeiten wie für eine numerische 
Variable bestehen. 


Wenn Sie dieses Kapitel durchgearbeitet haben, können Sie das 
RESTORE-Statement in Zusammenhang mit den Statements READ 
und DATA benutzen. Außerdem werden Sie in der Lage sein, die fol- 
genden String-Funktionen in Verbindung mit String-Variablen anzu- 
wenden, von denen Sie in diesem Kapitel noch gneügend erfahren 
werden: 


VAL 
STR$ 
CHR$ 
ASC 
LEN 


1. Bis jetzt war für uns die Verwendung alphanumerischer Zeichen- 
ketten (Buchstaben und Zahlen gemischt) im wesentlichen auf Strings 
in PRINT-Statements beschränkt, wie z.B. im folgenden Statement: 
10 PRINT “DIES IST EIN STRING“ 


Jetzt wollen wir jedoch die String-Variable neu einführen. 


5 DIM T$(50) 
10 LET T3="STRING FUER DIE STRING-VARIABLE T$” 


Dies ist eine String-Variable 
311 
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Eine String-Variable wird durch irgend einen beliebigen, aber zu- 
lässigen Variablen-Namen, gefolgt von einem Dollarzeichen ($) gekenn- 
zeichnet. String-Variable ermöglichen eine einfachere Manimpulation 
Alphanumerischer Daten. Die Instruktionen für String- und Variable 
schließen LET, PRINT, INPUT, READ, DATA und IF-THEN, sowie 
eine Reihe spezieller String-Funktionen ein. 


Wie wir bereits in den vergangenen Kapiteln mehrfach darauf hinge- 
wiesen haben, müssen Sie am Anfang eines Programms ein DIM-State- 
ment vorsehen. Es wird nur einmal ausgeführt, um dem Computer mit- 
zuteilen, wieviel Speicherplatz er für die im Programm verwendeten 
String-Variablen bereitstellen muß. Ein String, der einer String- 
Variablen unter Verwendung einer LET-Anweisung zugeordnet wird, 
ist auf eine Länge von ungefähr 99 Zeichen beschränkt. Dies ist auf die 
Beschränkung der Zeilenlänge der Statements zurückzuführen. Wieviele 
Zeichen enthält die obige String-Variable TB? een 
Haben Sie auch die Zwischenräume mitgezählt? 


33 Zeichen 


2. Wie Sie wissen, können Sie einer String-Variablen unter Verwen- 
dung eines INPUT-Statements einen Wert zuweisen. Das Statement 
fordert den Anwender auf, Werte für eine oder mehrere String-Variable 
einzugeben. - 


Beispiel 1: 


5 DIM N3(30) 
10 PRINT “WIE HEISSEN SIE"; + ——— eine String-Eingabe 
20 INPUT N$ 


Beispiel 2: 


5 DIM N$(30), S$(30) 
10 PRINT “IHR NAME IHR STERNZEICHEN“; zwei String-Eingaben 
20 INPUT N8,S$ 


Beispiel 3: 
5 DIM N3(30),C$(30) ,5$(30) 


10 PRINT “IHR NAME’ WOHNORT UND DAS LAND IN DEM 
SIE LEBEN”; 4 —— drei String-Eingaben 
20 INPUT N3,C$,S$ 


Sie können aber im gleichen INPUT-Statement auch numerische und 
String-Variable zuweisen, wie es das nächste Beispiel zeigt. 


Beispiel 4: 
5 DIM N$(30) 
10 PRINT “WIE HEISSEN SIE UND WIE ALT SIND SIE’; 
20 INPUT N8,A # ————————— Gemischte Eingabe (ein String, 
eine Zahl). 


Trifft der Computer bei der Ausführung eines Programms auf ein IN- 
PUT-Statement mit mehr als einer Variable, sei es eine String-Variable 
oder eine numerische Variable, druckt er ein Fragezeichen und wartet 
darauf, daß der Anwender den entsprechenden String oder den 
numerischen Wert über die Tastatur eingibt. 


Nehmen wir einmal an, wir haben das obige Beispiel in den Computer 
eingegeben. Wir tippen dann RUN ein und drücken auf RETURN. Das 
Display zeigt an: 


RUN 
IHR NAME UND IHR STERNZEICHEN? 


Ich antworte durch Eingabe meines Namens und drücke auf RETURN. 


RUN 
IHR NAME UND STERNZEICHEN? DIETER MUELLER 


Dann gebe ich mein Sternzeichen ein, das der zweiten Input-Variablen 
zugeordnet wird. 


RUN 
IHR NAME UND STERNZEICHEN? DIETER MUELLER 
? SKORPION 


Hätte ich beide Antworten gleichzeitig direkt nach dem ersten Frage- 
zeichen gegeben, wären Sie gemeinsam N$ zugeordnet worden. Be- 
tätigt man lediglich RETURN, ohne nach dem Fragezeichen etwas 
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einzugeben, wird der String-Variablen ein 
String ohne Inhalt zugewiesen. 


“Null-String‘, also ein 


5 DIM N$(30) 
10 PRINT "WIE HEISSEN SIE UND WIE ALT SIND SIE“; 
20 INPUT N8,A 
30 PRINT "NAME:"';N3 
40 PRINT ”ALTER:‘;A 


RUN 


.. m... rn Tr nee 
... . .— 1. 1. een 
..1. 1. 1 eek 


ei ea ae er ee ie ee ee re ae 


Bitte geben Sie an, was der Computer ausdruckt und wie Sie die ge- 
wünschten Informationen eingeben müssen, wenn das Programm läuft. 


WIE HEISSEN SIE UND WIE ALT SIND SIE? KLAUS MEIER 


? 33 
NAME: KLAUS MEIER 
ALTER: 33 


3. 10 DIM N3(15) 
20 PRINT “IHR NAME“; 
30 INPUT NZ 
40 PRINT “IHR NAME IST“;N$ 


Nehmen wir einmal an, wir lassen dieses Programm laufen. 


IHR NAME? JERALD RICHARD BROWN 
IHR NAME IST JERALD RICHARD 


Was ist da geschehen? Hat der Computer etwa meinen Nachnamen ”ver- 
gessen‘’? Keineswegs. Sehen Sie sich einmal das DIM-Statement an. Da 
die String-Variable N$ nur zur Aufnahme von 15 Zeichen dimensio- 
niert worden war, ordnete der Computer die ersten 15 Zeichen, die ich 
eingegeben hatte, der String-Variablen N$ zu und ignorierte den Rest 
einfach, 


Nehmen wir an, wir lassen das Programm noch einmal laufen. 


RUN 
IHR NAME? JOHN JACOB JINGLEHEIMER SCHMIDT 


Was wird der Computer in diesem Fall ausgeben? 


IHR NAME IST JOHN JACOB JING 


und die Lehre daraus: Dimensionieren Sie Ihre String-Variablen aus- 
reichend! 


4.Schreiben Sie ein Programm, das Autokennzeichen, bestehend aus 
drei Buchstaben und einer dreistelligen Zahl (z. B. SAM 123) drucken 
kann. Geben Sie die Buchstaben als String-Variable und die Ziffern als 
numerische Variable ein. Schreiben Sie auch hin, wie ein Lauf aussehen 
wird. 


0... a Eee re rear re ee ee ee 
nm ne we LEERE BRETTEN a Re see ee ee 
pa a Er a Eee re Br ee ne ee 
in gen ie ee re er 0ER LER ETLELEEE E  ree 
EN WE Bruni Be TE ie Fi ee ee een 
wurd 6 are Ei REEL OHR VEEETRNE ea hate 
u 0 Bere, win arena 


10 DIM A$%(3) 
20 INPUT A$,B 
30 PRINT A$;B 


RUN 
?SAM 
?123 
SAM123 


5.Sie können String-Variable auch mit Hilfe von READ- und DATA- 
Statements eingeben. 
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1 REM***STRING READ/DATA KURSPLAN 

5 DIMA3(18),C$(1) 

10 PRINT “KURS ”,”’STUNDEN”,’GRAD’” STUFE” 
20 READ A3,B$,C$ 

30 PRINT A8,B3,C$ 


40 GOTO 20 
50 DATA ENGLISCH 1A,3,B,S0Z 130 ,‚3,A 
60 DATA BUCHF. 1A,4,B,STAT. ‚3,A 


70 DATA MATHEM.,3,A,GESCH. 17A,3,B, 
80 DATA W.KUNDE 3A,4,C 


RUN 

KURS STUNDEN GRAD 
ENGLISCH 1A 3 B 
SOZ 130 3 A 
BUCHF. 1A A B 
STAT. 10 3 A 
MATHEM. 3 A 
GESCH. 17A 3 B 

W. KUNDE 3A 4 C 


Sehen Sie sich einmal Zeile 10 des vorstehenden Programms an. Be- 
achten Sie die im String “KURS” vorgesehenen Leerstellen. Da wir für 
die Bezeichnungen der einzelnen Kurse zwei Standard-Druck-Positionen 
reserviert haben, bewirken die zusätzlichen Leerstellen, daß “STUN- 
DEN” an der dritten Position ausgedruckt wird und “GRAD in der 
letzten Spalte. Wir hätten dies auch auf andere Weise erreichen können, 
beispielsweise durch einen “Null-String“ an der zweiten PRINT-Position. 


10 PRINT ”KURS”, *", “STUNDEN”,"GRAD” 


Da jeder String mit 8 Zeichen oder weniger eine Druckspalte benötigt, 
haben wir auch in den DATA-Statements Leerstellen vorgesehen (siehe 
Zeilen 50 und 60), wo der Kursname eine Länge von 8 Zeichen oder 
weniger hatte. Das bewirkt, daß der Kursname zwei Druckspalten be- 
legt. Die folgenden Regeln gelten für Strings, die in DATA-Statements 
enthalten sind. 


1) Der erste String in einem DATA-Statement darf keine Leerstellen am 
Anfang haben, schließt jedoch Leerstellen bis zu dem Komma ein, 


das den ersten und zweiten String voneinander trennt. 
910 DATA HOW, NOW, BROWN, COW 


Die Leerstellen vor NOW, BROWN und COW werden in den je- 
weiligen String eingeschlossen. 


2) Der letzte String in einem DATA-Statement darf Leerstellen zwischen 
dem vorangehenden Komma und dem ersten dargestellten Zeichen 
des Strings enthalten, jedoch nicht hinter dem letzten Zeichen. 


910 DATA HOW ,„ NOW ,„ BROWN ‚‚COW 


Diese Leerstellen werden in die String-Zuweisung einbezogen, nicht 
aber Leerstellen hinter dem letzten Zeichen. 


3) Die restlichen Strings in einem DATA-Statement’ können beliebige 
Leerstellen vor dem ersten oder hinter dem letzten Zeichen in der 
String-Zuweisung enthalten. 


910 DATA HOW ‚ \ NOW, , BROWN „ COW 


Die beiden Leerstellen vor und hinter dem Wert NOW werden in die 
String-Zuweisung einbezogen. 


6.Wie lang ist im Programm in Abschnitt 5 der String 'SOZ 130 ’ in 
BEER ns nuewicn Sn nee. ie re Fa as Fee DI TE 


9 Zeichen, einschließlich der beiden Leerstellen hinter dem letzten 
Zeichen. 


(SOZ 130 


Leerstellen 


7.Wieviele Druckspalten werden durch den String SOZ 130 belegt, 
wenn er aus dem DATA-Statement gelesen und durch Zeile 30 ausge- 
BRIRE WÄRE una ne arena naraee Sie area a re RE Da 


2; Strings mit einer Länge von 9 Zeichen oder mehr, die im PRINT- 
Statement durch Kommas getrennt sind, veranlassen den Computer, 
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die nächste PRINT-Position zu überspringen. Das erfolgt automatisch, 
um zu verhindern, daß auf dem Display eine Spalte in die nächste 
hineinreicht. Zusammenfassend kann gesagt werden, daß bei einer 
String-Länge über 9 Zeichen die übliche Reihenfolge der Druckspalten 
nicht beachtet wird, sondern die Ausgabe in der nächstmöglichen 
Druck-Position erfolgt. 


8. Der String LET weist einer String-Variablen einen speziellen String 
zu. Bitte beachten Sie, daß Sie den String in Anführungszeichen setzen 
müssen, wie es die beiden folgenden Beispiele zeigen. 


10 DIM A$%(3),B3(2),C$(3) 

20 LET AS="YES“ 

30 LET B$="NO“ 

40 LET CE AB E— C$ enthält jetzt YES“ 


Bitte geben Sie an, was beim Lauf dieses Programms ausgedruckt wird. 


10 DIM A$(20), B3(20) 

20 LET A3="' EIN GUTES BEISPIEL” 
30 LET B3="DIES IST” 

40 PRINT B$;A$ 


RUN 


ni Br EEE BE RE TE EEE LEERE Bee 


DIES IST EIN GUTES BEISPIEL 


9. Als nächstes möchten wir, daß Sie ein Programm schreiben, das dem 
in Abschnitt 5 ähnlich ist. Statt jedoch Kurse und Grade vorzusehen, 
sollen als Daten die Titel von Büchern verwendet werden. Jeder Daten- 
satz enthält den Autor, den Titel und die Anzahl der Seiten. Unsere 
Daten sehen folgendermaßen aus. 


900 REM***REIHENFOLGE DER DATEN 

901 REM***AUTOR, TITEL, SEITEN 

910 DATA BROWN,‚INSTANT BASIC,178 

920 DATA WHITE,YOUR HOME COMPUTER,225 
930 DATA KEMENY, BASIC PROGRAMMING,150 
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940 DATA OSBORNE,INTRO TO MICROCOMPUTERS 384 
950 DATA NELSON,COMPUTER LIB/DREAM MACHINES,186 
960 DATA THIAGI,GAMES FOR THE POCKET CALCULATOR,54 


RUN 


TITEL AUTOR SEITEN 
YOUR HOME COMPUTER WHITE 225 
BASIC PROGRAMMING KEMENY 150 
INTRO TO MICROCOMP OSBORNE 384 
COMPUTER LIB/DREAM NELSON 186 
GAMES FOR THE POCK THIAGI 54 


Sehen Sie sich bitte, bevor Sie das Programm schreiben, die obige 
Zeile 940 und die entsprechende Zeile des Programmlaufs an. Wie Sie 
sehen, haben wir die Länge der Titel durch geeignste Dimensionierung 
der String-Variablen so eingeschränkt, daß sich eine einheitliche Dar- 
stellung ergibt. Das heißt: Ist ein Titel kurz, enthält also weniger als 
9 Zeichen, dann sehen Sie noch leere Stellen hinter dem letzten Zeichen 
vor, damit er zwei Druckspalten belegt. Kürzen Sie die Länge der 
Namen der Autoren in der gleichen Weise. 


DRAN ERDE EN EEE Bi FETTE DR EEE LE Eee Be ern a 
sn. EURER ET ARE Lo ae a we ee a 
Rise ni RT EURER ER DR IE FE 9 EEE RD RATE I ie 
A Te BRETT BIENE ae ar Baar Re ee ie RE NE te 
EEE DE MOEENE Bra Area are ra EEE ET NE Re de aan a 
ELISE ER WR EN RT a Brei RE EEE a ae 
.nnn EEE DET Fe ren Re RR BEER 
oe BR mnee Kae a RE TEE HREER TE MR HE TIE Beteee reren aer 
RER EEE ERRE TE a PRR EIE  ROI ED 13 Ein Sie ie wie Fra Träne 
RELEVANTE OT DEE a me wa U ETUI. ee 
RN EEE BEREITETE WERE a FT U ETF En 
NE TEN ERRTR R EB ae Br TEE ee A BR IE ea ee ie Bali eier N BI 

NE ERNEST DREH ee el ee we 
ENEIR KB MEEEE  R EIDTE  a FAR TTS Be a ER ee hie 


1 REM***HAUS-BIBLIOTHEK 

5 DIM A$(8),T$(18) 
10 PRINT “TITEL”,”","AUTOR’,"SEITEN” 
20 READ A$,T$,P:IF Aß="END’ THEN END 
30 PRINT A$,T$,P:GOTO 20 
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900 REM***REIHENFOLGE DER DATEN 

901 REM***AUTOR, TITEL, SEITEN 

910 DATA BROWN,INSTANT BASIC,178 

920 DATA WHITE,YOUR HOME COMPUTER ,225 

930 DATA KEMENY, BASIC PROGRAMMING,150 

940 DATA OSBORNE,INTRO TO MICROCOMPUTERS,384 

950 DATA NELSON,COMPUTER LIB/DREAM MACHINES,186 
960 DATA THIAGI,GAMES FOR THE POCKET CALCULATOR 54 
970 DATA END,0,0,0 


10. Modifizieren Sie das Programm, das Sie gerade geschrieben haben 
so, daß nur die Bücher mit weniger als 200 Seiten ausgedruckt werden. 


25 IFP)=200 THEN 20 


11. Der String IF-THEN ermöglicht es, den Inhalt von zwei String- 
Variablen zu vergleichen. 


10 DIM A%(3), B$(3) 

20 B3="NO“ 

30 PRINT ""MOECHTEN SIE INSTRUKTIONEN’“; 

40 INPUT A 

50 IF A3=B$ THEN 140 

60 PRINT "DIESE SIMULATION ERLAUBT IHNEN...“ 
140 PRINT “DIESE SIMULATION BEGINNT...” 


Zeile 50 vergleicht den Inhalt der String-Variablen A& (YES) mit dem 
Inhalt der String-Variablen B& (NO). Wenn Sie auf das INPUT-State- 
ment mit YES geantwortet haben, sind A® und B$-.nicht gleich, da sie 
verschiedenen Inhalt haben. Der Computer führt dann das nächste 
Statement in Zeile 60 aus. Hätten Sie in Zeile 40 mit NO geantwortet, 
verzweigt das Programm zu Zeile 140 und fährt dort mit der Aus- 
führung fort. Der Vergleich in Zeile 50 erfolgt zwischen den ......... 


Inhalten der String-Variablen A$ und B$. 
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12. Sie können den Inhalt einer String-Variablen auch mit einem in 
Anfühtungszeichen eingeschlossenen String vergleichen. 


10 DIM A%(4) 

20 PRINT WUENSCHEN SIE INSTRUKTIONEN? JA ODER NEIN“; 
30 INPUT AZ 

40 IF A8="NEIN“ THEN 140 . 

50 PRINT “DIESE SIMULATION ERLAUBT IHNEN...” 

140 PRINT “DIE SIMULATION BEGINNT...” 


Der Vergleich in Zeile 40 erfolgt zwischen einem ...: ces. 
DEE DE BR Bin rent au und einem 


String, der einer String-Variablen zugewiesen ist (also dem Inhalt einer 
String-Variablen) und einem in Anführungszeichen eingeschlossenen 
String. 


13. Eine numerische Variable dürfen Sie nicht mit einer String-Variablen 
vergleichen. 


110 IF A8=B THEN 140 Das ist nicht erlaubt! Sie er- 
halten nach der Eingabe eine 
Fehlermeldung. 


Sie können jedoch eine String-Variable, durch Verwendung der 
VAL(3)-Funktion, in ihr numerisches Äquivalent umwandeln. Wenn im 
obigen Beispiel AS eine Zahl enthält (die als String-Variable eingegeben 
wurde), könnten Sie sie mit der numerischen Variablen B vergleichen, 
indem Sie Zeile 110 folgendermaßen umschreiben: 


110 IF VAL(AS) =B THEN 140 


Hier sehen Sie ein weiteres Demonstrationsprogramm. Bitte kreuzen 
Sie an, welcher Lauf für dieses Programm richtig ist. 


5 DIM A$(10),8$(10),C$(10) 
10 A$g="'32":B3="1.115*:08="—-10” 
30 PRINT A3:PRINT VAL(A$B) 
40 PRINT B$:PRINT VAL(B$) 
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50 PRINT C3:PRINT VAL(C$) 


RUN RUN 
32 32 

32 32 
1.115 1.115 
1.115 1.115 
—10 —10 
—10 —10 


Der erste Lauf ist korrekt. 


14. Was wird durch dieses Programm ausgedruckt? 


5 DIM A3(10),83(10),C3(10) 
10 Ag="32':B$="1.115:03="-10° 
30 PRINT VAL(AS)+VAL(B3)+VAL(C$) 


RUN 


non near eurene 
u nn niun;e na Dun BR HERREN a rn ehe 


15. Mit der STR$®-Funktion können Sie eine numerische Variable in 
einen String umwandeln, oder den Inhalt einer numerischen Variablen 
in eine String-Variablen einsetzen. 


10 PRINT STRE(X) #———— Diese Anweisung veranlaßt den 
Ausdruck des String-Äquivalents 
des numerischen Inhalts der 
variablen X. 

20 LET A3=STR3 (X) ——— Diese Zeile weist den numerischen 

i Inhalt der Variablen X der String- 
Variablen A$ zu. 


Was wird durch dieses Programm ausgedruckt? 


10 V=112 : PRINT V : PRINT STR$(V) 
RUN 


Er vn re Bu ee 


16. In einer IF-THEN-Anweisung erfolgt der Vergleich von zwei Strings 
jeweils Zeichen für Zeichen. Wird beispielsweise bei einer Eingabe, an 
einer nicht vorgesehenen Stelle, die Leertaste betätigt, ist für den 
Computer keine Gleichheit mehr vorhanden. 


5 DIM A%(20) 
10 INPUT A 
20 IF Aß="MCGEE” THEN 140 


Gibt der Benutzer, nach Aufforderung durch den Computer, jedoch 
MC GEE ein, wird keine Gleichheit mehr festgestellt. Warum? ......... 


AMT EER MEER NETE NE FE RE ET RE a ae 


Der Zwischenraum zwischen C und G repräsentiert ein Zeichen, das in 
“MCGEE° nicht vorhanden ist. 


17. Sie können Strings mit den gleichen Symbolen vergleichen, die Sie 
bisher auch bereits bei Zahlen verwendet haben, also: (),(,),(=,) =, 
und =. Dabei müssen Sie jedoch sehr aufpassen, Der Vergleich erfolgt 
wieder zeichenweise, und zwar von links nach rechts. Der erste ge- 
fundene Unterschied bestimmt das Verhältnis beider Strings. Der 
Vergleich basiert auf der Position des jeweils unterschiedlichen Buch- 
stabens im Alphabet. C ist damit “kleiner als‘ S, T ist "größer als’ M. 


5 DIM A3(5),B$(5) 

10 AS="SMITH’ 

20 BS="SMYTH” 

30 IF A®(B$S THEN 100 


Wird das obige Programm zu Zeile 100 verzweigen oder mit dem nächst- 
folgenden Statement fortfahren? 
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Es wird zu Zeile 100 springen. Der erste Unterschied liegt beim dritten 
Zeichen vor. Da | “kleiner als’ Y ist, ist die IF-TH EN-Bedingung wahr. 


18. Hier ist ein weiteres Beispiel 


100 DIM D$%(20),E$(20) 
120 D3="COMPUTE” 
130 E$="COMPUTER” 
140 IF D3(ES THEN 180 
150 PRINT D$ 

160 END 

180 PRINT E3 


Welches Statement wird nach dem Vergleich in Zeile 140 ausgeführt? 


. . . D .. D . . . Er . ... ..0 re 
00. u. .. ... .. .. ... .. . Ar .. 5 


Zeile 180. D$ ist ‘kleiner als” E$. D$ ist in diesem Fall kürzer und 
damit aurtomatisch “kleiner als” E$., 


19. Ändern Sie Zeile 140 in Abschnitt 18 so ab, daß sie folgendermaßen 
lautet. 


140 IF D3=E$ THEN 180 


Welches Statement wird jetzt, nach dem Vergleich von Zeile 140 ausge- 
HIN wann va ee re ie ra EN a Ra an nme 


Zeile 150. D$ ist ungleich E$. 

20. Ändern Sie Zeile 140 in Abschnitt 18 so ab, daß sie lautet: 
140 IF E$) D3 THEN 180 

Zeile 180. E$ ist ‘größer als’ D$. 


21. Damit Sie String-Vergleiche noch besser verstehen, möchten wir Sie 
jetzt mit dem ASCII-Code vertraut machen. Sicher werden Sie fragen: 


“Wer oder was ist ASCII?” ASCII ist die Abkürzung von “American 
Standard Code for Information Interchange”, also “Amerikanischer 
Standard-Code für den Informations-Austausch”. Beispielsweise wird 
von der Tastatur, für jedes von Ihnen eingetippte Zeichen, der ent- 
sprechende ASCII-Code an den Computer übermittelt. Der Computer 
wiederum schickt für jedes Zeichen, das auf Ihrem Drucker oder 
Display ausgegeben wird, ein ASCII-Zeichen zurück. Das versteht 
man unter “Informations-Austausch“, für den dieser Code geschaffen 
wurde. 


ATARI-BASIC ermöglicht es dem Benutzer, statt der Zeichen direkt die 
jeweilige ASCII-Code-Nummer einzugeben. Dies geschieht mit der 
Funktion CHR$I(X). Umgekehrt ist es möglich, ein Zeichen in seine 
ASCII-Code-Nummer umzuwandeln. Dazu ist die ASCII-Funktion 
vorgesehen, 


CHR$(X) Die ASCII-Code-Nummer, die umgewandelt werden soll, 
wird vor der Anwendung dieser Funktion in Klammern ge- 
setzt. Sie können aber auch, statt X, direkt die Zahl ein- 
setzen, wie beispielsweise in CHR$(65). 

ASC(X8) Das String-Zeichen, das in den ASCII-Code umgewandelt 


werden soll, wird vor der Ausführung für X3 eingesetzt. 


Die Großbuchstaben beispielsweise, die wir in BASIC verwenden, ent- 
sprechen den Code-Nummern 65 bis 90 einschließlich: A=65, B=66, 
C=67,...xX=88, Y=89, Z=90. Eine vollständige Tabelle der ASCII- 
Code-Nummern und der von ihnen repräsentierten Zeichen finden Sie 
im Anhang. 


Das folgende kleine Programm druckt einen “Ausspruch‘ von John 
Wayne, der im DATA-Statement in Form von ASCII-Code-Nummern 
enthalten ist. 


10 READ X : IF X=-1 THEN END 
20 PRINT CHR$(X);: GOTO 10 
30 DATA 89,95,80,—1 


RUN 
YUP 
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Bitte geben Sie an, was beim Lauf des folgenden Programms ausge- 
druckt wird. Verwenden Sie dazu die Tabelle der ASCII-Code- 
Nummern. 


10 READA: IF A=-1 THEN END 
20 PRINT CHR$(A);:GOTO 10 
30 DATA 72,65,80,89,32,67,79,77,80,85,84,73,78,71,—1 


RUN 


HAPPY COMPUTING 


22. Durch Verwendung der ASC-Funktion können Sie die ASCII-Code- 
Nummer eines String-Zeichens ermitteln. Hier eine Demonstration. 


5 DIM X$(1), Y3(1),28(1) 

10 Xg=-" N Vg="B":Z29="C” 

20 PRINT "A= ;ASC(X$),"B= ";"ASC(Y8),"C= ";ASC(Z$) 
RUN 

A=65 B=66 C=67 


Schreiben Sie ein Programm unter Verwendung der ASC-Funktion, das 
Ihnen die ASCII-Codes für die folgenden Zeichen ausgeibt: 


RUN 

ZEICHEN ASCII-CODE 
3 36 

= 61 

? 63 


Hier sind zwei mögliche Lösungen: 


5 DIM A3(1),83(1),C3(1) 

10 A="$":B3="=":0$="?" 

20 PRINT "ZEICHEN,"ASCII-CODE” 
30 PRINT 

40 PRINT AB,ASC(A$) 

50 PRINT B$,ASC(B$) 

60 PRINT C$,ASC(C$) 


10 PRINT “ZEICHEN” ,“ASCII-CODE” 
20 PRINT 

30 PRINT '$3’,ASC($”) 

40 PRINT “=",ASC("=") 

50 PRINT ‘?’,ASC(‘?") 


23. Jetzt wollen wir uns wieder mit String-Vergleichen unter Verwen- 
dung von IF-THEN-Statements beschäftigen. Strings werden, wie be- 
reits erläutert, Zeichen für Zeichen vergleichen, wobei der Computer 
die ASCII-Code-Nummern zur Durchführung des Vergleichs benutzt. 
In Abschnitt 12 beispielsweise fanden wir folgendes Programm: 


5 DIM A$(10) 
10 INPUT Ag 
20 IF A = “MCGEE“ THEN 140 


Wenn das Programm läuft und der Benutzer MC GEE eingibt, vergleicht 
der Computer die ASCII-Code-Nummern folgendermaßen: 


“MCGEE“ A3 (vom Benutzer eingegeben) 
M=77 M=77 
C=67 C=67 
G=71 Leertaste = 32 
E=69 G=71 
E=69 E=69 
E=69 


Der Computer stellt fest, daß die ersten beiden Zeichen der zwei 
Strings gleich sind, jedoch besteht beim dritten Zeichen keine Über- 
einstimmung mehr (71 statt 32). 


Bitte zeigen Sie, wie der Computer, unter Verwendung der ASCII- 
Codes, die Strings im folgenden Programm-Segment vergleicht. 


5 DIM A3(3) 
10 INPUT "WUENSCHEN SIE INSTRUKTIONEN? JA ODER NEIN”: 
A3 
20 IF A®= “NEIN” THEN 140 
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RUN 
WUENSCHEN SIE INSTRUKTIONEN? JA ODER NEIN”JA 
Ag “NEIN” 


DC er Ba a er ee er ee 
Dee ur a Ba Er er 
.rr ren. 


.eTrTTTrTrTr Tr nn. 


A “NEIN” 
J=74 N=78 
A=65 E=69 
1=73 
N=78 


Der Vergleich ist falsch. 


24. Bevor wir weitergehen, müssen wir noch das RESTORE-Statement 
und seine Verwendung in Verbindung mit READ- und DATA-State- 
ments erläutern. Ein READ-Statement bewirkt, daß jeweils die nächste 
Information aus den DATA-Statements gelesen wird. Vielleicht möch- 
ten Sie aber, daß das Programm nochmals alle Daten von Anfang an 
liest. 


Um dies zu erreichen, können Sie ein RESTORE-Statement vorsehen. 
Es bewirkt, das die nächste Information, die durch READ gelesen wird, 
wieder aus dem ersten DATA-Statement stammt. Mit anderen Worten, 
beim nächsten DATA-Statement, auf das der Computer trifft, beginnt 
er wieder am Anfang von DATA. Dies sehen Sie deutlich in Zeile 30 
des folgenden Programms. 


Nachdem Sie gelernt haben, wie man String-Variable miteinander 
vergleicht, werden Sie keine Schwierigkeiten haben, das folgende 
einfache Programm zu verstehen, mit dem man Informationen aus 
DATA-Statements herausholen kann. 


Das Programm in Abschnitt 5 druckt Kurse, Stundenzahlen und den 
Kurs-Grad aus. Das nachfolgende Programm ermöglicht es dem Oper- 
ator, den Kursnamen einzutippen, woraufhin der Computer folgende 
Informationen ausgibt: Kurs, Stunde, Grad. 


1 REM***KURS-INFORMATION 
5 DIM A$(18),D$(18),C$(1) 
10 PRINT “GEBEN SIE DEN KURSNAMEN EIN“; 
20 INPUT D$ 
30 RESTORE 
40 READ A8,B,C$:IF A3=D$ THEN 60 
50 GOTO 40 
60 PRINT A ‚B,C$:PRINT : GOTO 10 
900 REM***KURS, STUNDEN, GRAD 
910 DATA ENGLISCH 1A ,3,B,S0Z 130,3A 
920 DATA BUCHF. 1A,4,B,STAT. 10,3,C 
930 DATA W.KUNDE 3,A,GESCH. 17A,3,B 


RUN 


GEBEN SIE DEN KURSNAMEN EIN? W. KUNDE 
W.KUNDE 3 A 


GEBEN SIE DEN KURSNAMEN EIN? STAT 10 
STAT 10 3 C 


GEBEN SIE DEN KURSNAMEN EIN? ECON 1A=#—Den Kurs gibt 
ERROR-— 6AT LINE 40 es nicht. Der 

Computer hat 
alle Daten durchgesucht und einen derartigen Kurs nicht gefunden. Da- 
her druckter er eine Fehlermeldung aus. 


Sehen wir uns noch einen weiteren Lauf des Programms an. 


RUN 
GEBEN SIE DEN KURSNAMEN EIN? SOZ130 
ERROR- 6 AT LINE 40 


Der Kursname ist als SOZ 130 gespeichert, eingegeben wurde aber 
SOZ130, also ohne Leerschritt zwischen SOZ und 130. 


Beachten Sie bitte auch, daß Sie bei der Eingabe über die Tastatur 
keine Leerstellen vor oder nach der jeweiligen Zeichenfolge vorsehen 
können. Sie dürfen daher in Strings in DATA-Statements, die mit 
durch INPUT eingegebenen Strings verglichen werden sollen, keine 
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derartigen Leerstellen mehr vorsehen, andernfalls erfolgen die Ver- 
gleiche nicht so wie erwartet. 


Bitte beantworten Sie die folgenden Fragen, die sich auf das Programm 
in Abschnitt 24 beziehen. 


a) Welche Aufgabe hat dieser Teil von Zeile AO? . een 
BE es IF A8=D$3 THEN 60 


b) Unter welchen Bedingungen wird Zeile 50 ausgeführt? ... 222222... 
50 GOTO 40 

a) Er soll prüfen, ob es sich bei dem aus dem DATA-Statement ge- 
lesenen Kurs um den gleichen handelt, der durch das INPUT-State- 
ment erfragt wird. 

b) Wenn der durch Zeile 40 gelesene Kurs nicht der im INPUT-State- 
ment gefragte ist. 


26. Modifizieren Sie das Programm in Abschnitt 24 so, daß es statt 
einer Fehlermeldung die Mitteilung “DIESEN KURS GIBT ES NICHT“ 
ausdruckt, um anzudeuten, daß der vom Benutzer angefragte Kurs 
nicht im Informationssystem des Computers existiert. Sie müssen 
zu diesem Zweck am Ende der Daten ein Flag vorsehen. 


Fügen Sie dieses oder ähnliche Statements in Ihr Programm ein: 
45 IF A® = “END” THEN PRINT “DIESEN KURSGIBT ES NICHT“ 


: GOTO 10 
940 DATA END,0,0 


Bitte denken Sie daran: das Daten-Ende-Signal muß aus einem String, 
gefolgt von einem numerischen Wert, hinter dem wiederum ein String 
folgt, bestehen, da das READ-Statement jeweils Werte für drei Variable 
gleichzeitig einliest. 


27. Jetzt sind Sie an der Reihe. Schreiben Sie bitte ein Programm, das 
die Namen und Telephonnummern Ihrer Freunde und Geschäfts- 
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partner enthält. Wenn Sie einen Namen eingeben, sollte der Computer 
mit der korrekten Telephon-Nummer antworten, wie es die folgenden 
Beispiele zeigen. 


NAME? ADAM OZ 


ADAM OZ 415-555-2222 
NAME? JUDY WIL 

JUDY WIL 112-555--0075 
NAME? JERRY 


ERROR- 6AT LINE 40 


FREE ERTEILEN ORTE HT FE ae ae 
PEEET RE TEE DEE BE Ba N ee Er Re 
ERBETEN ABER EB NS REN ESTER AT Era ae ELLE ET EEE Khan 
TERRESEERERR Se vr we Dr TEE re ae ramenzt 
ERTRIERE TA NESTEBOIEHEER TRETEN SA SIRAHENE Sense a DEREN 
MEER I BEER EEE Bier is Eee ONE Ei frame ner 
BRENNER NE TR CREDIT ET EEE na ine Bear Ina er re 
TRIER FERNE TEE ER re anne IE a RE ER an 
ELSE NER IE ee ne RR TE TEE RETTEN a 
TERNIRER U ACER DE KEN BER ANSTEUERN ER WLaEENE Ale arsleie 
TERRARIUM EEE RE TEE TEE Feier Ki wer 
= BEERTENE DEE EIN BURERETUNE. DEINER EIER EEE EEE ae anne ar 

EFERDING EBEN BE TEN SE eye er Br ie DR TEEN En 

RT ER REEL rn ee TEE TER TE ne 


1 REM***TELEPHON-VERZEICHNIS 
10 DIM N$(8),D$(8),T$(12) 
20 PRINT “NAME’';: INPUT N$ 
30 RESTORE 
40 READ D$,T$ 
50 IF N3=D$ THEN PRINT :PRINT D3,T$:PRINT : GOTO 20 
60 GOTO 40 
900 REM***DATA:NAME, TELEPHON—-NUMMER 
910 DATA TONY BOD 415-555-8117 
920 DATA MARY JAY 213-555-0144 
930 DATA MARY MMM ,213-555-1212 
940 DATA JUDY WIL,112-555--0075 
950 DATA ADAM 0Z,415-555-2222 
960 DATA BOBBY ALL ,312-555-1667 
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970 DATA END,END 


28. Als nächstes möchten wir Sie mit einer weiteren Funktion vertraut 
machen, die es Ihnen ermöglicht, Teile von Strings, “’Substrings’’ ge- 
nannt, zu manipulieren und zu untersuchen, Ein Substring ist ein 
Teil eines Strings und wird durch Indizes hinter der Stringvariablen 
gekennzeichnet, also A$(10) oder A$(1,5). 


5 DIM A$(30) 

10 LET A$="MY HUMAN UNDERSTANDS ME“ 

20 PRINT A8(10) —————— Der Substring beginnt beim zehn- 
ten Zeichen und schließt alle fol- 
genden Zeichen ein. 

RUN 

UNDERSTANDS ME 


Ersetzen Sie Zeile 20 durch PRINT A$(15). Was wird gedruckt, wenn 
die neue Zeile 20 ausgeführt wird? ....: 2 ccm 


STANDS ME 


29. Sehen wir uns jetzt einmal folgende Beispiele an. Um ein von Ihnen 
gewünschtes Zeichen aus dem String auszuwählen, geben Sie die Posi- 
tion dieses Zeichens innerhalb des Strings als Doppelindex an. Da- 
durch wird gleichzeitig das erste und letzte Zeichen des Substrings fest- 
gelegt, der in diesem Fall nur aus einem Zeichen besteht. 


5 DIM A$(30) 

10 LET A3="MY HUMAN UNDERSTANDS ME“ 

20 PRINT Ag(4,4) ———— Durch diese Anweisung wird H, 
der vierte Buchstabe des Strings 
ausgedruckt (ein Zwischenraum 
zählt als ein Zeichen). 

RUN 

H 


Hier sehen wir einen Substring, der beim ersten Zeichen beginnt und 
alle Zeichen bis einschließlich zum neunten enthält. 
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5 DIM A$(30) 
10 LET A3="MY HUMAN UNDERSTANDS ME” 
20 PRINT A$(1,9) 


RUN 
MY HUMAN 


Ändern Sie im obigen Programm Zeile 20 so, daß sie “PRINT AS(4,8)” 
lautet. Was wird jetzt bei ihrer Ausführung ausgedruckt? 


AUSH nE u re 


30. Was wird durch das folgende Programm ausgedruckt? 


10 DIM A$(20) 
20 LET Aß="GAMES COMPUTERS PLAY” 
30 PRINT A$(7,15),A$(17),A$(1,5) 


RUN 


COMPUTERS PLAY GAMES 


31. Hier sind Teile eines Programms, mit dem die String-Variable Ag 
rückwärts ausgedruckt werden kann und zwar Zeichen für Zeichen. 
Füllen Sie bitte die leeren Stellen aus und geben Sie an, wie der Lauf 
aussieht. 


D. DEAN una ana en u Beat ) 

10 LET A$="ABCDEFGHIJKLMNOPORSTUVWXYZ” 
20 FOR Ku „nun nen Te nanan a Su STEP —1 
N PERINLT ABER we 2 rn a eh > rn 
40 


RETTER IE ENTER Dean En a ER Er Bea a We ee R- kieane 


L JBc Ber ar Ber ur ur Er rer ee 
EEE IE Kr ee Be TEE ee re ae 


5 DIM A3(26) 


10 LET AS=“ABCDEFGHIJKLMNOPORSTUVWXYZ” 
20 FOR X=26 TO 1 STEP —1 
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30 PRINT AZ(X,X), 
40 NEXT X 


RUN 
ZYXWVUTSROPONMLKJIHGFEDCBA 


32.Wir wollen noch einmal ein Beispiel aus dem ersten Kapitel auf- 
greifen, nämlich das Zahlenratespiel aus Abschnitt 9. Jetzt allerdings 
soll es in ein Spiel zum Erraten von Buchstaben abgeändert werden. 
Hier ist ein Listing des alten Programms, dessen Logik nach wie vor 
gilt. 


100 REM***DIES IST EIN EINFACHES COMPUTERSPEIL 

110 LET X=INT(100*RND(1))+1 

120 PRINT 

130 PRINT “ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 
100." 

140 PRINT “ERRATEN SIE MEINE ZAHLIN!” 

150 PRINT : INPUT *” IHRE ZAHL“; : INPUT G 

160 IF G ( X THEN PRINT "VERSUCHEN SIE ES MIT EINER 
GROESSEREN ZAHL’:GOTO 150 

170 IF G ) X THEN PRINT “VERSUCHEN SIE ES MIT EINER 
KLEINEREN ZAHL’':GOTO 150 

180 IF G=X THEN PRINT”GRATULIERE!!! SIE HABEN MEINE 
ZAHL ERRATEN.”:GOTO 110 


Wir müssen jetzt zuerst eine Zeile 101 einfügen um A$® zu dimen- 
sionieren und die Variable G$ einzugeben. Ebenso muß die Funktion 
X$ vorgesehen werden, um den Buchstaben des Computers, der geraten 
werden soll, zu speichern. Zeile 105 soll ein LET-Statement mit allen 
Buchstaben des Alphabets enthalten, die AS zugeordnet werden. 


101 DIM A$(26),G3(1),X3(1) 
105 LET A = "ABCDEFGHIJKLMNOPORSTUVWXYZ" 


33. Ändern Sie Zeile 110 jetzt so ab, daß eine Zufallszahl zwischen 1 
und 26 erzeugt wird. 
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Pc ser Dur or Bar er \E7 Br ur me DE me er Br rer\ 
U a Er a ER A FE ae nina 


110 LET X=INT(26*RND(1))+1 


34. Der von uns gewählte Buchstabe soll in X$ übernommen werden. 
115 LETX$ 


115 LET X$ = Ag(X,X) 


Da Er Er 
ta a EEE Er lei ie a ei re PR 


35. Vervollständigen Sie bitte die Zeilen 140 und 150. 


130 PRINT "ICH DENKE MIR EINEN BUCHSTABEN ZWISCHEN A 
UND Z” 


. . . 
en... viele Tr BER ERUET DiIE  FaR I Far 


140 PRINT “ERRATEN SIE MEINEN BUCHSTABEN!!!”:PRINT 
150 PRINT “IHR BUCHSTABE“: INPUT G$ 


36. Ändern Sie die Zeilen 160, 170 und 180, soweit notwendig. 
Lassen Sie das neue Spiel dann ablaufen. 


160 


ua ai nee 
nn ee re ee EEE lee ie 


LE Er Er Er Eur Er Er 
rer DR Deiner a ee rail 


Hier das gesamte Listing und ein Programmlauf: 


100 REM***EIN EINFACHES COMPUTERSPIEL 

101 DIM A3(26),6G$(1),X8(1) 

105 LET A$=“ABCDEFGHIJKLMNOPORSTUVWXYZ” 

110 LET X=INT(26*RND(1))+1 

115 LET X8=A$(X,X) 

120 PRINT 

130 PRINT “ICH DENKE MIR EINEN BUCHSTABEN ZWISCHEN 
A UND Z“ 

140 PRINT “ERRATEN SIE MEINEN BUCHSTABEN!!!”:PRINT 

150 PRINT “IHR BUCHSTABE’';INPUT G$ 

160 IFG$3(X3 THEN PRINT “VERSUCHEN SIE ES MIT EINEM 
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GROESSEREN BUCHSTABEN.”:GOTO 150 

170 IF G& ) X3 THEN PRINT “VERSUCHEN SIE ES MIT EINEM 
KLEINEREN BUCHSTABEN.”:GOTO 150 

180 IF G$ = X3 THEN PRINT “GRATULIERE!!! SIE HABEN 
MEINEN BUCHSTABEN ERRATEN.”:GOTO 110 


RUN 
ICH DENKE MIR EINEN BUCHSTABEN ZWISCHEN A UND Z 
ERRATEN SIE MEINEN BUCHSTABEN!!! 


IHR BUCHSTABE L 
VERSUCHEN SIE ES MIT EINEM KLEINEREN BUCHSTABEN. 


IHR BUCHSTABE G 
VERSUCHEN SIE ES MIT EINEM GROESSEREN BUCHSTABEN. 


IHR BUCHSTABE J 
GRATULIEREI!!! SIE HABEN MEINEN BUCHSTABEN ERRATEN 


37.Schreiben Sie, unter Verwendung der Daten aus Abschnitt 27, ein 
Programm, das eine Liste der Telephon-Nummern derjenigen Teil- 


nehmer ausdruckt, deren Vorname mit dem Buchstaben M beginnt. 


RUN 
MARY JAY 213-555—-0144 
MARY MMM 213-555--1212 


ERROR- 6 AT LINE 40 


1 REM***TELEPHON-VERZEICHNIS 
10 DIM D$(8), T$(12) 
20 RESTORE 
30 READ D$,T$:!F D$(1,1)="M’” THEN PRINT D3,T$ 
40 GOTO 30 
900 REM***DATA: NAME, TELEPHON—-NUMMER 
910 DATA TONY BOD,415-555-8117 
920 DATA MARY JAY ,213-555—-0144 
930 DATA MARY MMM 213-555—1212 
940 DATA JUDY WIL,112-555-0075 
950 DATA ADAM 0Z,415-555-1667 
960 DATA BOBBY ALL ,312--555--1667 
970 DATA END,999 





38. Modifizieren Sie Ihr Programm aus Abschnitt 37 so, daß der 
Computer nur die Namen und Telephon-Nummern aller Teilnehmer mit 
der Vorwahl 415 ausdruckt. 


RUN 

415-555-8117_ TONY BOD 
415-555—-2222 ADAM OZ 
ERROR-— 6 AT LINE 40 


1 REM***TELEPHON-VERZEICHNIS 
10 DIM D$(8),T$(12) 
20 RESTORE 
30 READ D$,T$:1F T$(1,3) () “415° THEN 30 
40 PRINT T8,D8:GOTO 30 
900 REM***DATA:NAME, TELEPHON-NUMMER 
910 DATA TONY BOD,415-555-8117 
920 DATA MARY JAY ‚213-555-0144 
930 DATA MARY MMM,213-555-1212 
940 DATA JUDY WIL,112-555--0075 
950 DATA ADAM 0Z,415--555-1667 
970 DATA END,999 


39. Manchmal ist es notwendig, die Länge des Inhalts einer String- 
Variablen zu kennen (Anzahl der Zeichen). Natürlich ist in BASIC auch 
dafür eine spezielle Funktion vorgesehen, nämlich LEN. LEN(A$) gibt 
Ihnen die Anzahl der Zeichen, einschließlich der Leerstellen, im String 
A$ an. Hier sind einige Beispiele. 


10 LETA=LEN(A$) 
20 PRINT LEN(C$) 
30 IF LEN(A$) ()LEN(B$).... 


Sie können Substrings dazu benutzen, um die Antworten auf Fragen 
des Computers zu überprüfen, und entsprechende Reaktionen zu veran- 
lassen, usw. Nachfolgend finden Sie einen Teil eines Geschichts-Lehr- 
programms. Das Programm stellt eine Frage und fordert den Benutzer 
zu einer Antwort auf. Anschließend überprüft es die Antwort und 
macht eine entsprechende Bemerkung. 
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10 DIM A%(30) 

20 PRINT "WER WAR DER ERSTE PRAESIDENT DER USA”;: 
INPUT A$ 

30 FOR X=1 TO LEN(A$)-9 

40 IF AB(X,9+X)="WASHINGTON“ THEN PRINT “RICHTIG”:END 

50 NEXT X 

60 PRINT “IHRE ANTWORT IST FALSCH“ 

70 GOTO 20 


RUN 
WER WAR DER ERSTE PRAESIDENT DER USA 


Was wird der Computer antworten, wenn Sie GEORGE WASHINGTON 
PIERRE: En ka as vn ala ara tiere 5 Ariane den Marina. Ka era 


RICHTIG. Um zu sehen, wie der Computer Ihre Antwort überprüft, 
fügen Sie die folgende Zeile ein und lassen Sie das Programm noch 
einmal mit der gleichen Antwort laufen. 


39 PRINT AS(X,X+9) 


40. Was antwortet der Computer, wenn der Benutzer, als Antwort auf 
die Frage des vorigen Programms, WASHINGTON IRVING eingibt? 


RICHTIG. Wir haben die Antwort nämlich auf WASHINGTON über- 
prüft. 


41.Die LEN-Funktion kann auch dazu verwendet werden, zu veran- 
lassen, daß vom Anwender eingegebene Daten eine bestimmte Länge 
erhalten, wenn Sie ein vorgegebenes Format nicht überschreiten dürfen, 
beispielsweise weil sie in ein Formular eingesetzt werden sollen. Sehen 
Sie sich einmal das nachfolgende Beispiel an und beantworten Sie dann 
die Fragen. 


10 DIM A3(30),N3(30) 

20 PRINT “IHR NAME’';:INPUT N$ 

30 IF LEN(N$) ) 20 THEN PRINT “BEGRENZEN SIE IHREN 
NAMEN BITTE AUF 20 ZEICHEN“;GOTO 20 
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40 PRINT “IHRE ADRESSE’';:INPUT A$ 
50 IF LEN (A$) ) 15 THEN PRINT “BITTE KUERZEN SIE IHRE 
ADRESSE AB’:GOTO 30 


Wieviele Zeichen sind für den Namen erlaubt? 
Wieviele für die Adresse? 


nee Haren 
nee Den ee le ee ee 


EINGENTEST 


1. Schreiben Sie bitte ein Programm, das die Eingabe eines Wortes mit 
fünf Buchstaben ermöglicht und dieses Wort dann rückwärts aus- 
druckt. 


EEE RS RENTEN BT EI ET A ERLER ER ee eeieneeenn 
8 ARNDT Be RR EL ee ee ae az 
ER ERITER EEEFEH TE DE Bee we ee ee dee 
= DT EEE DS BIELEFELD FE FIR Mu ae Bere Rear 
EEE ET TREE EEE RE re ee Br RE ee here 
SENSE EURE SIE BUELL RT ET TE a RTTTELE A. Bukarest Feen 


WETTE FEN ON BIRGIT NER ER er tere Te RERTRLTT 


2. Schreiben Sie ein Programm, durch das eine Reihe von Wörtern mit 
einer Länge von vier Buchstaben aus DATA-Statements eingelesen 
wird und drucken Sie nur die Worte, die mit dem Buchstaben A be- 
ginnen. 


A BE NE Be ee Te er BETRIEB ers. ne 
REZENSENT RE EEE RE EB RER Eee 
NEAR TE ET EI FORTE EU Ken eer  Ee aee te 
EI SALE WE BR RT Er LET Ri ee a eena 
238 WODENETIRNT une, WERTE ER a EDER BCDTTTEE ULEB RT 


3. Modifizieren Sie das Programm in Frage 2 so, daß nur die Worte 
gelesen werden, die mit A beginnen und mit S enden. 


TEURER RERE B e ERTEE Keie  D Gi 


EEE ENTE FU re DE ALTE ee 5 Brei. 


Fe ee ee BE ee ee ee er er er ee ee ee er er ee Be ee er ee er er Be er ee ee er ee ee ee ee a er er ee 
EN OKT THREE U EEE FE EEE EURE EEE EN EIER € 
Pier Wr Har y meL ve Wr Ya ur we or vu Su Bor Er mE DE ur ver Tu au SL ur ar mE Yu Vo Doc ver uer r Dur DE Vor Sn Du DE Du u ur ee SE Er Ve Be re Se ec 
WERTE REEL EEE EL ie ne een © 


4. Vor einigen Jahren hatte die amerikanische Auto-Industrie erhebliche 
Probleme, Namen für neue Autos zu erfinden. Man setzte daher einen 
Computer ein, um Worte mit fünf Buchstaben zu erzeugen. Schreiben 
Sie ein Programm, durch das 100 Worte mit je fünf Buchstaben aus- 
gegeben, bei denen für die erste, dritte und fünfte Stelle zufällig aus- 
gewählte Konsonanten und für die zweite und vierte Position auf die 
gleiche Weise zufällig ermittelte Vokale eingesetzt werden. 


vi er Er erraten 
EEE BEE LE EEE LE LTE IE BRETT Eee 
1... 1) ee 
. 11. 1. 1). ee 
EEE RE BEE RE EEE TEE TEE BLEI te 
..... .—".—... ....„..„. C..eLnmmen seen‘ 
Dauer u er er ee ee Be a Bee er ee ee ee er er ee re ee er er ee er a Be er Br er re re er ee ee er ee er er er er 
EEE a Kinn 3a EEE I Kan 0 BED FT ET I EEE 5 
aaa a een keine area ae eh 
EEE EEE BE RE EEE TEE I Rt ee 
ee einer ee een ee ern ee 
Tuner ee era rue a neh 
er EEE RE HT a BEER FE UE EL  Ee ien 


SET aaa ie EEE Bra ae he reihe 
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Du 


Antworten zum Eigentest 


. 10 REM***STRING-EIGENTEST 9—1 


20 DIM A3(5) 

30 INPUT A$ 

40 FOR X=5 TO 1 STEP —1 
50 PRINT AZ(X,X); 

60 NEXT X 

70 PRINT :GOTO 30 


. 10 REM***STRING-EIGENTEST 9-2 


20 DIM A3(4) 

30 READ A®:IF A$(1,1) 0) “A” THEN 30 
40 PRINT A3:GOTO 30 

50 DATA ANTS,GNAT,LOVE,BALD,APES 
60 DATA BAKE,MIKE,KARL,BARD,ALAS 


. 10 REM***STRING-EIGENTEST 9-3 


20 DIM A$(4) 

30 READ A$:IF A3(1,1) () “A” THEN 30 
35 IF A%(4,4) () S” THEN 30 

40 PRINT A3:GOTO 30 

50 DATA ANTS,GNAT,LOVE,BALD,APES 
60 DATA BAKE,MIKE,KARL,BARD,ALAS 


. 10 REM***STRING-EIGENTEST 9-4 


20 DIM A$(5),B3(21) 

30 Ad="AEIOU” 

40 B8="BCDFGHJKLMNPORSTVWXYZ” 
50 FOR X=1 TO 20 

60 FOR Z=1 TO2 

70 B=INT(21*RND(1))+1 
80 PRINT B$(B,B); 

90 A=INT(5*RND(1))+1 
100 PRINT ASB(A,A), 

110 NEXT Z 

120 B=INT(21*RND(1))+1 
130 PRINT B$(B,B) 

140 NEXT X 
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NOTIZEN KAPITEL 10 


Farb-Graphik und Ton 


In diesem Kapitel werden wir Ihnen einige der interessantesten Möglich- 
keiten des ATARI-Computers vorstellen. Sie werden lernen, die Farbe 
der Objekte, die auf dem Bildschirm erscheinen, zu beeinflussen und 
ebenso die Farbe des jeweiligen Hintergrundes. Darüber hinaus werden 
Sie erfahren, wie man Bilder auf dem Display ”'malt’, die Sie selbst ent- 
worfen haben. Diese zusätzlichen Möglichkeiten für die Verbesserung 
der Ausgabe Ihrer Programme werden durch eine Reihe neuer Graphik- 
und Farb-Statements und Befehle gegeben. Wenn Sie dieses Kapitel be- 
endet haben, können Sie..... 


® für den Hintergrund Ihres Displays eine von 16 Farben aus- 
wählen; 


® Entwürfe auf dem Bildschirm anfertigen, unter Verwendung 
einer von 16 möglichen Farben; 


® einen Text zu Ihren Bildern in einem speziellen ”Text”-Fenster 
ausdrucken; 


® unter 16 Farben die von Ihnen gewünschte für das Textfenster 
auswählen; 


® die Nummer der jeweiligen Zeichen-Positionen ändern, so daß 
detailliertere Bilder gezeichnet werden können. 


1. Durch Auswahl einer Bildschirm-Betriebsart, welche die Mischung 
von Graphik und Text auf verschiedene Arten ermöglicht, können 
Sie Linien auf dem Bildschirm ziehen. Dazu muß das Kommando 
GRAPHICS gegeben werden, das sich mit GR. abkürzen läßt. Acht 
verschiedene Betriebsarten sind vorgesehen. Sie werden durch die 
Zahlen O bis 7 ausgewählt. Beispielsweise würde 


10GR.3 


ein graphisches Raster mit 40 Spalten und 20 Reihen auswählen, bei 
dem 4 Zeilen für Text vorgesehen sind. 
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a) Welches Kommando ermöglicht das Zeichnen von Graphiken? ..... 
b) Wie lautet seine Abkürzung? . .. 2.222 ces eeeeeeeeeee er ennennnn 
c) Wieviele verschiedene Bildschirm-Betriebsarten gibt es? ........... 


a) GRAPHICS b) GR. (Der Punkt ist wichtig!) c)8(0...7) 


2. Tippen Sie folgende Zeile ein und beobachten Sie den Bildschirm. 
GRAPHICS 3 

a) Hat sich die Farbe im oberen Bildschirmteil geändert? ............ 

b) Welche Farbe hat der untere Teil des Bildschirms? ............... 


a) Der obere Teil des Bildschirms ist jetzt leer 
b) Purpur (kann abweichend sein, je nach Fernsehgerät) 


3. In der Graphik-Betriebsart 3 (Graphik-Mode 3) enthält der obere Teil 
des Bildschirms ein Graphikraster mit 40 x 20 Positionen zum Zeichnen 
von Punkten. Der kleinere Teil des Bildschirms, am unteren Rand, ist 
für die Ausgabe von Text vorgesehen. Hier können vier Zeilen beschrie- 
ben werden. 


a)Wo können Sie im Graphik-Mode 3 Punkte auf dem Bildschirm 
ZAICHEMEN? u «u yamıza aa Ara as area a ae nen Ar Sara 
b) In welchem Bereich kann Text ausgegeben werden? .... 2222222 2.- 


a) Im oberen Bildschirmbereich. b) Im unteren Bereich 


4.Bis jetzt haben wir im gesamten Buch die Graphik-Betriebsart O 
(Graphics 0) benutzt. Wenn Sie Ihren ATARI-Computer einschalten, 
wird der Bildschirm automatisch in diese Betriebsart versetzt. Bitte 
denken Sie bei der Beantwortung der folgenden Frage daran, daß 
GRAPHICS 3 vier Zeilen Text unterhalb der Graphik-Fläche er- 
möglicht. Geben Sie das folgende Programm ein und lassen Sie es 
ablaufen. Wenn Sie es beendet haben, tippen Sie GRAPHICS 0 
ein und drücken die Taste RETURN. Damit sind Sie wieder in der 
Text-Betriebsart (Text-Mode). 


10 GRAPHICS 3 

20 PRINT “LINE 1” 
30 PRINT "LINE 2” 
40 PRINT "LINE 3” 
50 PRINT "LINE 4°; 
60 GOTO 60 


Was können Sie jetzt am unteren Rand des Bildschirms lesen? 


5. Hier sehen Sie eine Tabelle der Graphik-Betriebsarten 3 bis 7. 


Betriebs- Anzahl Graphik- Text- 

Art Nr. der Positionen Fenster 
Spalten Reihen 

3 39 20 4 Zeilen 

35 79 40 4 Zeilen 

6,7 158 80 4 Zeilen 


Welche Graphik-Betriebsarten bieten die größte Anzahl graphischer 
POSITIONEN? ar Ara ar Free a en ae ae a re 


6 und 7 (158 x 80 Positionen) 


6. Ändern Sie Zeile 10 aus dem Programm in Abschnitt 4 in: 
10 GRAPHICS 4 


Haben Sie mehr Platz für Text, wenn dieses geänderte Programm 
SHIAUNE?" „ch erconen na Keane ne a a N er nahe 


Nein, es sind immer noch vier Zeilen. 


7.Wenn wir graphische Darstellungen anfertigen möchten, verwenden 
wir das PLOT-Statement, um dem Computer mitzuteilen, welchen 
Punkt er darstellen soll. In diesem Statement müssen sowohl die ge- 
wünschte Spalte als auch die zugehörige Zeile angegeben werden. Die 
Bildschirm-Positionen werden von der linken oberen Ecke des Bild- 
schirms aus numeriert, jeweils beginnend mit der Nummer 0. Die 
Position 2,5 liegt daher in der dritten Spalte nach rechts und in der 
sechsten Zeile nach unten. Nehmen wir einmal an, wir führen das 
Statement 


30 PLOT 2,5 aus. 


Dieser Punkt wird auf dem Bildschirm folgendermaßen lokalisiert: 


0,0 &£ tolumn 2 





row 5 


Be RR BERLINER BR ee ei 


Einen Punkt an einer vorgegebenen Position festzulegen (Reihe, Spalte). 


8. Sehen Sie sich dieses Programm an: 


10 GR.3 
20 PLOT 2,5 
30 PRINT “DAS IST DIE PLOT-POSITION 2,5” 


Welche Bedeutung hat jede einzelne Zeile dieses Programms? 
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a) Zeile 10 wählt a Er EEE FE EEARTER DE aaa ae 
BEESIERSUIEE RU Wi 5 nass ara nern a ae re ehr ee 
BR EERREEER ae dos ine 1 rastet antrat Pienisdehr hg. uni Detnaiksstnne ee 
a) Zeile 10 wählt die Graphik-Betriebsart 3 

b) Zeile 20 sagt, wo der Punkt liegen soll. 


c) Zeile 30 gibt an, welcher Text in das Text-Fenster geschrieben 
werden soll. 


9. Um den Punkt sehen zu können, wählen wir mit folgendem State- 
ment eine Farbe aus: 


15 COLOR 1 


Fügen Sie diese Zeile in das Programm in Abschnitt 8 ein und lassen Sie 
das Programm laufen. 


SE SOHEB EN ESLPERKER su 1 aa ae a ae 
b) Wenn Zeile 20 in PLOT 10,5 abgeändert wird, liegt der Punkt dann 
rechts oder unterhalb des ursprünglichen Punktes? . ocean. 


a) Ja, der Punkt ist gelb (goldfarben) b) rechts 
10. Um von GR.3 den Text-Betrieb zurückzukehren, tippen Sie einfach 
GR.O ein. Schreiben Sie dann ein Programm, mit dem die nachfolgend 
angegebenen vier Punkte abgebildet werden. Verwenden Sie GRAPHICS 
3und COLOR 1. 


me IE HARTE En ame Le EDER IE AFTER A RT EN a a an 
min m en a BRENNT ae a a NO Ei areene ia re 
zu UHR 8 NER U enaaen u EEE EVTL I EEE 


nn MEER DIET RE RER TE ER ER ETAI I T DTM GA. AH 


Unser Programm: 
10 GR.3 
20 COLOR 1 
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30 PLOT 5,5:PLOT 15,5 
40 PLOT 5,15: PLOT 15,15 


11. Von welchen Punkten (1,2,3 und 4) werden die angegebenen 
Positionen belegt, wenn das Programm läuft? 


IOBEHNIDR Seası ar Dsmnag re Knie ae ers ao ers ie Serakirnpen ee 
B)’ünten Techts s; 4 ano. verwen uvam er ie 
C\ObEN TECH. 25 a N Ri Lo I a DE 
ON TEHLINKS a mans an en ae re art en ee eye 


a) 1 (5,5) b) 4 (15,15) c) 2 (15,5) d) 3 (5,15) 
12. Vervollständigen Sie das folgende Programm, um im Graphik-Mode 
3 in jeder Ecke der Graphik-Fläche einen Punkt darzustellen. Denken 
Sie dabei daran, daß Reihen und Spalten von O ab gezählt werden. 
Sehen Sie sich auch die Tabelle in Abschnitt 5 an. Tippen Sie zunächst 
GR.O ein, um den ganzen Bildschirm für Text zur Verfügung zu haben. 
Geben Sie dann Ihr fertiges Programm ein und probieren Sie es aus. 


10 GR.3 

20 COLOR 1 

an PLOTDD: PLOT „. man nr ann ad er ana ad a a a 
Ad: PLOT 0,19: PLOT .0u.u a wonaa na sauna wanna ie nen Fa 


30 PLOT 0,0: PLOT 38,19 
40 PLOT 0,19: PLOT 38,0 


13. Gemäß der Tabelle in Abschnitt 5 stehen uns in den Graphik- 
Betriebsarten 4 und 5 79x40 Punkte zur Verfügung. Da die Spalten und 
Reihen von O an numeriert sind, wird die obere rechte Ecke des Schirms 
durch die folgenden Statements markiert: 


10 GR.4 
20 COLOR 1 
I TUERT eeer.a rm a Rn ke ahenr Be er a EEE 


30 PLOT 78,0 


14. Schreiben Sie im Graphik-Mode 6 ein Programm, das für diese 
Betriebsart in jeder Ecke des Bildschirms einen Punkt abbildet. Sehen 
Sie sich noch einmal Abschnitt 12 an, in dem diese vier Punkte für die 
Betriebsart 3 programmiert wurden. 


nu DEE re DER I DURTR E i h eeiie e eaeeee  rr 
EM TE BEREL VEEE LER EEETE RHTT TE ET Fremen Baer ur ie Bra 
a 8 DATE Lean ne ru ne EEE KR RE a ae 
TE ee er a a a ET Fee 


Unser Muster-Programm: 


10 GR.6 

20 COLOR 1 

30 PLOT 0,0: PLOT 157,79 
40 PLOT 0,79: PLOT 157,0 


15. Geben Sie wieder GRAPHICS O ein, um in die Text-Betriebsart 
zurückzukehren. Tippen Sie anschließend NEW ein und lassen Sie 
das folgende Programm laufen. Machen Sie dann in das freie Feld 
eine Skizze der Darstellung auf dem Bildschirm. Kehren Sie danach 
wieder in die Text-Betirebsart zurück. 


10 GRAPHICS 3 

20 COLOR 1 

30 PLOT 0,0: PLOT 1,1: PLOT 2,2 

40 PLOT 3,3: PLOT 4,4: PLOT 5,5 

50 PLOT 6,6: PLOT 7,7: PLOT 8,8 

60 PLOT 9,9: PLOT 10,10: PLOT 11,11 
70 PLOT 12,12: PLOT 13,13: PLOT 14,14 
80 PLOT 15,15: PLOT 16,16: PLOT 17,17 
90 PLOT 18,18: PLOT 19,19 
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16.Sie können auch eine FOR-NEXT-Schleife verwenden, um eine 
Folge von Punkten zu zeichnen. Geben Sie dazu das folgende Programm 
ein und lassen Sie es ablaufen. 


10 GRAPHICS 3 

20 COLOR 1 

30 FOR I=0 TO 19STEP 2 
40 PLOT I,l 

50 NEXTI 


Wie sieht das Ergebnis dieses Laufs im Vergleich zu dem von Programm 
VA? ann hu a RER ae ran un a en 


Man erhält die gleiche Darstellung. 


17. Eine dritte Methode zum Zeichnen einer geraden Linie besteht 
darin, zusammen mit dem PLOT-Statement das DRAWTO-Statement 
zu verwenden. Das PLOT-Statement sagt dem Computer, wo er mit der 
Linie beginnen soll, während das DRAWTO-Statement angibt, wo die 
Linie enden soll. Die Linie wird zwischen der PLOT-und der DRAWTO- 
Position gezogen. 


Geben Sie das folgende Programm ein und lassen Sie es ablaufen. 


10 GR.3 

20 COLOR 1 

30 PLOT 0,0 

40 DRAWTO 19,19 


Vervollständigen Sie diese Statements. 


a) Das PLOT-Statement weist den Computer an, ...: 222 cce ee 
b) Das DRAWTO-Statement gibt dem Computer an, . 2.222222. 
c) Vergleichen Sie das Ergebnis dieses Programms mit der Ausgabe der 


beiden vorigen Programme zum Zeichnen von Linien (Abschnitte 
15 und 16). 


..... ...— 1. | eeeeeeeeee 


a) die Linie an der gegebenen Position zu beginnen. 
b) an welcher Position er die Linie beenden soll. 
c) gleiches Ergebnis. 


18. Vervollständigen Sie dieses Programm, durch das eine Linie von 
der linken oberen in die rechte untere Ecke des Bildschirms gezogen 
wird. Verwenden Sie die Graphik-Betriebsart 4. 


10 GR.4 
20 COLOR 1 
30 PLOT 0,0 
40 


.— rer], Tr rn 


40 DRAWTO 78,39 


19. Wenn das Programm in Abschnitt 18 abläuft, sollte folgendes auf 
dem Bildschirm sichtbar sein: 


Fügen Sie jetzt zwei weitere Zeilen in das Programm aus Abschnitt 18 
ein, so daß eine zweite Linie von der rechten oberen zur linken unteren 
Ecke gezogen wird. Auf Ihrem Display sollte jetzt ein großes X sichtbar 
sein, so wie es die folgende Abbildung zeigt: 
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Vervollständigen Sie diese Zeilen und fügen Sie sie in das Programm aus 
Abschnitt 18 ein. 


50 PLOT 78,0 
60 DRAWTO 0,39 


20. Fügen Sie jetzt noch eine weitere Zeile in das gleiche Programm ein, 
so daß im Text-Fenster steht: X MARKS THE PLOT 


70 PRINT X MARKSTHE PLOT“ 


21. Zeichnen Sie in das leere Feld ein, was durch dieses Programm auf 
dem Bildschirm dargestellt wird. 


10 GRAPHICS 4 

20 COLOR 1 

30 FOR N=39 TO OSTEP —13 
40 PLOT 0,0 

50 DRAWTO 78,N 

60 NEXTN 


22. Fügen Sie die folgenden Zeilen in das Programm aus Abschnitt 21 
ein. Nachdem das Programm gelaufen ist betätigen Sie die Taste 
BREAK, um es anzuhalten. Geben Sie dann GRAPHICS O ein, um 
wieder in die Text-Betirebsart zurückzukehren. 


Einfügen: 15 FORM=O0TO1 
Ändern: 20 COLORM 
Einfügen: 70 NEXTM 
Einfügen: 80 GOTO 15 


Wie wirken sich diese Änderungen auf das Ergebnis aus? ............ 


Sie können sehen, wie jede Linie nacheinander gezeichnet und wieder 
“gelöscht‘ wird. 
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23. Nachdem Sie nun in der Lage sind, einfache graphische Darstellungen 
zu erzeugen, wollen wir uns ansehen, wie man die Farbe ändern kann. 


Eine Farbe wird durch folgendes Statement ausgewählt: 
SETCOLOR 0,C,2 


Die Variable C kann jede ganze Zahl zwischen 0 und 15 sein. Jeder Wert 
von C ergibt eine andere Farbe für die dargestellten Punkte. 


Das Statement zur Änderung der Farbe der Punkte auf dem Bildschirm 
lautet: 


ANDEREN BEIDE TEE WE LETTER A rear u RT re ee eng 


SETCOLOR 0,C,2 


24. Ein vollständiges Farb-Graphik-Programm muß die drei folgenden 
Statements enthalten: GRAPHICS, COLOR und SETCOLOR. 
Natürlich müssen wir auch noch einige Punkte definieren. 


10 GR.3 

20 COLOR 1 

30 SETCOLOR 0,0,2 

40 PLOT 0,3 

50 DRAWTO 38,3 

60 PRINT “WELCHE FARBE SEHEN SIE?” 


Sehen Sie sich das Programm genau an, bevor Sie es ablaufen lassen. 
Was wird Ihrer Meinung nach auf dem Bildschirm zu sehen sein? 


a) Im Graphik-Bereich? 
b) Im Text-Bereich? 


WERTE EEE EEE DRAN EEE a aaa are 
nA Er ae ee ee iz 


a) ein langer, grauer Balken (die Farbe kann bei Ihrem Fernsehgerät ab- 
weichend sein). 


b) Die Worte: WELCHE FARBE SEHEN SIE? 


25. Mit einigen Änderungen und Einfügungen kann das Programm aus 
Abschnitt 24 so abgwandelt werden, daß jede der 16 verfügbaren 


Farben sichtbar werden. 


a) Vervollständigen Sie das Programm: 


10GR.3 
20 COLOR 1 
Einfügen: 25 FOR N=0 TO 15 
Ändern: SOSETCOLOIRG, zei ne wie 
40 PLOT 0,3 
50 DRAWTO 38,3 
Ändern: 60 FOR. W=1 T@500:: NEXT u ua. uses au 
Einfügen: 70 PRINT : PRINT : PRINT : PRINT N 
Einfügen: BERN. u are rear re rer 


b) Beschreiben Sie bitte, was beim Lauf des Programms geschieht: 


ee ee a a ie ee ae nee 


a) 30 SETCOLOR 0,N,2 
60 FOR W=1 TO 500: NEXT W 
80 NEXT N 

b) Der Farbbalken varriert von grau über alle verfügbaren Farben bis hin 
zu Grün, wobei jede Farbe in mehreren Helligkeitswerten sichtbar 
wird, 


26. Sie haben gerade die 16 Farben gesehen, die bei Ihrem ATARI- 
Computer zur Verfügung stehen. Sie wurden durch Änderung der Farbe 
des Balkens im Graphik-Feld demonstriert. Jetzt wollen wir noch eine 
weitere Variante ausprobieren. Nehmen Sie dazu folgende Änderung in 
Zeile 30 des Programms aus Abschnitt 25 vor: 


30 SETCOLOR 2,N,2 


Lassen Sie dieses geänderte Programm ablaufen und beschreiben Sie, 
BER HRERERTRETES as aa ee a ee rar er ee a BE 


LI BE DE ua Sur oc ar et Br We IE an er ar 
[ Itet u Er Bar Er Due ur N a7 JEPTEr SET ur 07 Se or Se Ge Br ar SIE Vor Ur MI Bee oc Ye Sa Er SE Dur Be Tr SEC JEr me Sr Br DE ar Sr ae 


Der Farbbalken bleibt während des ganzen Laufs goldfarben, aber das 
Text-Fenster nimmt nacheinander jeder der 16 möglichen Farben an. 
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27. Eine weitere Variation ist durch eine nochmalige Änderung von SOG NET: ven ar ser ra he ee 
Zeile 30 möglich. 


n b) Beschreiben Sie kurz das R di Änd : 
Ändern Sie Zeile 30 in: 30 SETCOLOR 4.N.2 ) Beschreiben Sie kurz das Resultat dieser Änderungen 


Lassen Sie das Programm auch mit dieser Änderung ablaufen. Be- .....jkeseessseesnsnnsnn rn 


schreiben Sie, wasgeschieht.. .. ums was ia pen rn EA nn nn 
BE A a ANeTRRTR Sea. Mach re Ra mie auere a) 60 SETCOLOR M,N,2 
Br Bee ang 80 FOR W = 1 TO 200: NEXT W 


Diesmal ändert sich der Hintergrund der Graphikfläche. Der Balken 90 NEXT N 
bleibt golden, während das Text-Fenster dunkel wird und während des 100 NEXT M 
ganzen Laufs auch dunkel bleibt. b) Zuerst nimmt der Farbbalken, dann das Textfenster und schließlich 


der Hintergrund nacheinander alle 16 möglichen Farben an. 


28. In den Abschnitten 25, 26 und 27 haben wir die Werte der 


Variablen A und N im Stat t SETCOLOR A,N,2 verändert. : j i 
ariablen A un im Statemen verande 30. Sie können jetzt Punkte abbilden und viele Farben auf dem Bildschirm 





a) Wo änderten sich auf dem Bildschirm die Farben, als A auf O gesetzt sichtbar machen. Hier ist nun ein Programm, das beides komibiniert. Bevor 
ern nee Tea ar a mu aa aniageie Au ange bel net Sie es laufen lassen, schraffieren Sie bitte im nachfolgenden Rasterfeld die 
b) Wo änderten sich die Farben, als A auf 2 gesetzt wurde? .......... Punkte, die durch das Programm dargestellt werden. 
c) Wo änderten sich die Farben, als A auf 4 gesetzt wurde? .......... 
a) im abgebildeten Balken 3,5 u 95 
b) im Text-Fenster 
c) im Hintergrund des Graphik-Bereichs. 
29. Die in den Abschnitten 25, 26 und 27 demonstrierten Effekte 
können auch in einem Programm vereint werden. 
a) Füllen Sie dazu die leeren Stellen in den Zeilen 60, 80, 90 und 100 
aus: 
10GR.3 315 15 
20 COLOR 1 —> en 
30 PRINT “BEOBACHTEN SIE, WIE SICH MEINE FARBEN | 
AENDERNI!!” 10 GR.3 


40 FORM=O0TO4STEP2 

50FORN=O0TO 15 

BESETSOLOR .. u and Ca 6 DR RR Ra 
70 PLOT 5,5: DRAWTO 38,5 

SO FORW = 1 TO 200:NEXT su. 24 sen an 0 nun au una an 
SONEXT een ur unemnen nenn 5 ne IE Ra EHER a 


20 COLOR 1 

30 SETCOLOR 4,1,2 

40 PLOT 5,5: DRAWTO 7,5 
50 PLOT 6,6: DRAWTO 6,10 
60 DRAWTO 4,15 

70 PLOT 6,10: DRAWTO 8,15 


356 357 


80 PLOT 5,7: DRAWTO 3,9 
90 PLOT 7,7: DRAWTO 9,9 
100 PRINT "WAS FUER EIN LUSTIGER MANNII!” 





31.Durch Ändern der Bildschirmbetriebsart können wir die Abmessungen 
der in Abschnitt 30 gezeichneten Figur variieren. Nehmen Sie dazu beim 
Programm aus Abschnitt 30 folgende Änderungen vor: 


Einfügen: 5FORA=7TO3STEP —2 
Ändern: 10 GRAPHICS A 

Einfügen: 93 FOR W=1 TO 200 NEXT W 
Einfügen: 95 NEXT A 


a) Lassen Sie das geänderte Programm ablaufen und beschreiben Sie das 
BEER: Krups ar. Aomakag ai nike ai are oe aba IN RR Ei Hauer 
b) Wieviele Bildschirm-Betriebsarten wurden benutzt? 


a) Der Mann scheint sich von der linken oberen Ecke wegzubewegen und 
wird dabei immer größer. 
b)3 


32. Das Programm aus Abschnitt 31 änderte die Graphik-Betriebsart von 
vielen kleinen Feldern zu wenigen großen. Bilder können jedoch wesentlich 
detailreicher dargestellt werden, wenn viele kleine statt weniger großer 
Punkte verwendet werden. 
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Die folgenden Fragen beziehen sich auf das Programm aus Abschnitt 
31. 


a) Welches Statement bewirkte die Änderung der Graphik-Betriebs- 
OL, u. ne Br BEENEEIE  HTE E Ag u 
b) Der erste Wert für die Variable A der FOR-NEXT-Schleife lautete: 
EEE „der zweite: ,4 a. s„.Und.derdritte 0500. % 


a) Zeile 10 GRAPHICS A b) 7, 5,:3 


33. Die Tabelle in Abschnitt 5 gibt die Anzahl der Graphik-Positionen 
in den verschiedenen Betriebsarten an. Die Betriebsarten 6 und 7 
haben 158 x 80 oder 12640 individuelle Punkte, die Betriebsart 4 und 
5 79x40 oder 3160 Punkte. Betriebsart 3 verfügt über nur 39x20 = 
780 Punkte. Dieses Programm gibt Ihnen nun die Möglichkeit, einige 
Rechtecke in verschiedenen Größen zu untersuchen. 


10 GRAPHICS 7 

20 COLOR 1 

30 SETCOLOR 0,15,2 

35 X=80:Y=48 

40 PLOT X,Y 

50 PLOT X-2,Y-2:DRAWTO X+2,Y—2 

60 DRAWTO X+2,Y+2:DRAWTO X-2,Y+2 
70 DRAWTO X-2,Y-2 

80 PLOT X-4,Y-4:DRAWTO X+4,Y—4 

90 DRAWTO X+4,Y+4:DRAWTO X—4,Y+4 
100 DRAWTO X-4,Y—4 


Lassen Sie zunächst das Programm ablaufen und beobachten Sie die 
Breite der gezogenen Linien sowie die Größe des Rechtecks. 


Ändern Sie dann Zeile 10 in 10 GRAPHICS5 und 
Zeile 35 in 35 X=40: Y=24 um. 


Lassen Sie das gleiche Programm noch einmal laufen und vergleichen 
Sie die Linienbreite und die Größe des Rechtecks mit dem ersten Lauf. 


10 GRAPHICS 3 
35 X=20:Y=12 um. 


Ändern Sie jetzt nochmals Zeile 10 in 
und Zeile 35 in 
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Lassen Sie das Programm wiederum ablaufen. 


a) Wie änderte sich die Linienbreite für Lauf 1,2 und 3? ....22222%.. 
b) Wie änderte sich die Größe des Rechtecks? een 


a) Sie wurde jedesmal dicker. b) es wurde jeweils größer. 


34.Sie können einen interessanten optischen Effekt erzielen, wenn 
Sie alle drei Graphik-Betriebsarten in einem Programm vereinen. Unser 
geändertes Programm sieht folgendermaßen aus. 


10 M=1 

20 FOR N=7 TO3STEP —2 

30 GRAPHICS N 

40 COLOR 1 

50 SETCOLOR 0,1,2 

60 X=80/M: Y=48/M 

70 PLOTX,Y 

80 PLOT X-2,Y-2: DRAWTO X+2,Y—-2 
90 DRAWTO X+2,Y+2: DRAWTO X-2,Y+2 
100 DRAWTO X-2,Y—2 

110 PLOT X-4,Y—-4: DRAWTO X+4,Y—4 
120 DRAWTO X+4,Y+4: DRAWTO X-4,Y+4 
130 DRAWTO X-4,Y—4 

140 FOR W=1 TO 200: NEXT W 

150 M=2*M 

160 NEXT N 

170 GOTO 10 


Bevor Sie das Programm ablaufen lassen, beantworten Sie bitte folgende 
Fragen: 


a) Welche Zeile ermöglicht es ihnen, die Farbe des Rechtecks zu 
EIENE = 2 vage au a a RER Ha Kar ae ann a een wu 


nn ne Re ER et ee ie else re ee wie 


c) Welche Zeile ermöglicht es Ihnen, die Zeitdauer zu ändern, für die 
jede Graphik-Betriebsart auf dem Bildschirm bleibt? . 2.222222... 


a) Zeile 50 b) BREAK c) Zeile 140 


35. Da Sie die Erzeugung von Farb-Graphiken jetzt wohl einigermaßen 
im Griff haben dürften, wollen wir uns als nächstes mit der Program- 
mierung von Tönen befassen. Vier Variable sind es, die in Zusammen- 
hang mit dem SOUND-Statement benutzt werden. Wir nennen sie V 
(für Voice), N (für Note), T (für Ton) und L (für Lautstärke). 


20 SOUND V,N,T,L 


Bitte geben Sie an, welche Bedeutung jede Variable im obigen State- 
ment hat. 


a) V = Voice (Stimme) b)N=Note c)T=Ton d)L = Lautstärke 
36. Geben Sie das folgende Programm ein und benutzen Sie es, um die 
Lautstärke Ihres Fernsehgerätes auf einen annehmbaren Wert einzu- 
stellen. Drücken Sie auf BREAK, wenn Sie damit fertig sind. 


10 SOUND 0,115,10,8 
20 GOTO 20 


Bitte geben Sie an, welche Variable jeder der vier im SOUND-Statement 
enthaltenen Werte repräsentiert. 


a) 8 = Lautstärke b) 115 = Note c) O = Voice d) 10=Ton 


37. Zuerst wollen wir mit der Lautstärke experimentieren. Der Wert für 
L kann jede beliebige ganze Zahl zwischen O und 15 sein. 


Verwenden Sie O für Voice, 115 für Note und 10 für Ton und schreiben 
Sie ein Programm, durch das alle 16 Lautstärkewerte erzeugt werden. 
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Sehen Sie für L ein INPUT-Statement vor und fügen Sie das Statement 
IFL=-5 THEN 


EEE IA ET ae EEE A ara 


ENTER NE TE re RE er er Er ae: 
RFSRTERNUN ENS Anlanpanieiuer ri WERKEN ae STE ED ER a eedeine i Ree 5 
ARE WR ERRRSBSIES BER ae er ae SE ee ee 
ET TEE EEE ER rn ee EEE EEE BE Bakıermcie ac Arsen 
MEERE TS ar METER Ar ni TEE ernene aee Are e 


Hier unser Programm: 


10 INPUTL 

20 IF L=-5 THEN 50 
30 SOUND 0,115,10,L 
40 GOTO 10 

50 END 


38. Im Programm aus Abschnitt 37 wird jede Lautstärke solange auf- 
rechterhalten, bis ein neuer Wert eingegeben wird. Schreiben Sie daher 
bitte jetzt ein neues Programm, das eine Zeitverzögerung verwendet, um 
den Ton für eine vorgegebene Zeit erklingen zu lassen. Sehen Sie außer- 
dem eine FOR-NEXT-Schleife vor, um die Lautstärke schrittweise, 
automatisch zu ändern. 


EHRT NEE BEE Branienteinniori ERS TALda AT arte ATEE L EEE ne ehenaree w 
EEE RENNER ANTENNEN FE ererremge re ee 
260 BISTRBREREAOE BEBI  ETELE one Ban are Se RT ER Banane 
ER FTEBIETE E Bhrenneiane sie ER Er EEE RE re Maenner 


Unser Programm sieht so aus: 


10 FORL=0TO 15 

20 SOUND 0,115,10,L 

30 FOR W=1 TO 200: NEXT W 
40 NEXTL 


39. Für normale Anwendungen kann der Lautstärkewert ständig bei 8 
bleiben. Als nächstes wollen wir die Ton-Variable ausprobieren. Bis 
jetzt haben wir den Wert 10 verwendet, jedoch kann die Variable N 


Werte zwischen O und 15 annehmen. Ändern Sie unser Programm aus 
Abschnitt 38 so ab, daß jetzt T variiert wird. Setzen Sie die Laut- 
stärke auf den Wert 8 fest. 


rer we we ri ER a rer een 
a TOR. IE Km Wen ee sed ARE N aeree e eee e 
EEE EU ER ran rw re en ee tete ee 


zueneinind ur DE ne sr u ei ei era 


Das geänderte Programm: 


10 FOR T=0 TO 15 

20 SOUND 0,115,T,8 

30 FOR W=1 TO 200: NEXT W 
40 NEXTT 


40. Wie würden Sie die durch das letzte Programm erzeugten Klänge 
BBIBEN 5 ea reren semEe a ar ene F rken 


ee I ee ie area au ne een era ee 


Wir hörten einige schön klingende Töne, eine Reihe komischer Ge- 
räusche und schließlich angenehme Stille. 


41. Lassen Sie uns jetzt den Ton wieder auf 10 festlegen, die Laut- 
stärke belassen wir bei 8 und behalten ‘Voice 0“ bei. Diesmal wollen 
wir die Tonhöhe ändern, die durch “Note beeinflußt wird. Die vor- 
gesehenen Werte reichen von 0 bis 255. Kürzen Sie die Zeitverzögerung 
im Programm aus Abschnitt 39 auf 50 und schreiben Sie das Pro- 
gramm so um, daß diesmal die Tonhöhen geändert werden, 


NE LE REN EEE BE We arg ee ie ie ee ee 
Var EEE ie re re LTE TEL re ne er ET 
EIIPIRE DE EUTME Die narene rn re he DEE I er lee 


RT BEE EU SE SIR TE RT le Te Be ee 


10 FOR N=0 TO 255 

20 SOUND 0,N,10,8 

30 FOR W=1 TO 50:NEXT W 
40 NEXTN 
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42.Wenn Sie beabsichtigen, eine Melodie zu schreiben, werden Sie 
sicherlich nicht alle 256 Töne benötigen. Nachstehend finden Sie daher 
eine Tabelle mit den Werten von N für einen Tonumfang von 1 1/2 
Oktaven. (T muß dabei auf 10 gesetzt werden). 





a) Welcher Wert aus der obigen Tabelle liefert, nach den Ergebnissen 
des Programms aus Abschnitt 41, den höchsten Ton? 
b) Und den niedrigsten? 


. 00er. 
WIE RS id ie ee eu er 


43. Um eine Tonleiter zu spielen, können wir Noten in einer Tabelle 
speichern und sie bei Bedarf lesen. 


Tragen Sie im nachfolgenden Programm die Datenwerte ein. Ver- 
wenden Sie keine durch # erhöhten Töne und beginnen Sie mit dem 
niedrigsten Ton aus der Tabelle in Abschnitt 42, 


10 FOR A=1 TO 16 

20 READN 

30 SOUND 0,N,10,8 

40 FOR W=1 TO 200: NEXT W 
50 SOUND 0,0,10,8 

60 FOR W=1 TO 10: NEXT W 
70 NEXTA 


80 DATA 145,129,122,109,97,92 
90 DATA 82,73,65,61 ,54,48 
100 DATA 46,41 ,36,32 


44. Um Farben und Töne gleichzeitig zu erzeugen, fügen Sie bitte die 
folgenden Zeilen in das Programm aus Abschnitt 43 ein. 


5 GR.5 
15 COLOR 1 
34 SETCOLOR 0,A-1,2 
35 PLOT 5,11: DRAWTO 15,11 


a) Wieviele Töne werden beim Lauf dieses Programms gespielt? ....... 
b) Wieviele Farben werden sichtbar? . .. 2: ccm nennen 


45. Blau ist kalt, rot ist warm. Vervollständigen Sie bitte das folgende 
Programm, durch das 8 Töne gespielt werden. Kombinieren Sie warme 
Farben mit hohen Tönen und kalte Farben mit tiefen Tönen. Ver- 
wenden Sie die folgenden Farben: 


Dunkelblau Gelbgrün 
Blau Gelb 
Blaugrün Orange 
Grün Rot 


Fügen Sie sowohl die Farben und die Töne in die DATA-Statements 
ein: 
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10 GR.3 
20 FOR A=1 TO 8 
30 COLOR 1 
40 READ N,C 
BR BETIEBLOND, sosiawan wen ie a aa ar an a nn Aka 
60 PLOT 10,9-A: DRAWTO 20,9-A 
20. SOUND, : n ssweiwar sa we au ‚ 10,8 
80 FOR W = 1 TO 200: NEXT W 
90 SETCOLOR 0,0,2 
100 Sound 0,0,10,8 
110 FORW=1TO 10: NEXT W 
120 NEXTA 


Wir haben folgende Daten gewählt: 


50 SETCOLOR 0,C,2 
70 SOUND 0,N,10,8 
130 DATA 122,9,109,10 
140 DATA 97,13,92,15 
150 DATA 82,1,73,2 
160 DATA 65,3,61,5 


46. Wenn Ihre Programmierfähigkeiten zunehmen, werden auch Ihre 
Programme immer länger werden. Längere Programme lassen sich aber 
wesentlich leichter schreiben und auch besser verstehen, wenn Sie in 
funktionelle Einheiten zerlegt werden. Oft werden Sie derartige Teil- 
stücke an verschiedenen Stellen Ihres Programms verwenden. Statt Sie 
nun jedesmal zu wiederholen, kann eine SUBROUTINE verwendet 
werden. Das GOSUB-Statement weist den Computer an, das Haupt- 
Programm zu verlassen und zu dieser Subroutine zu springen. Sobald 
sie beendet ist, wird der Computer durch ein nachfolgendes RETURN- 
Statement aufgefordert, wieder in das Hauptprogramm zurückzu- 
kehren und in der nächsten auf das GOSUB-Statement folgenden 
Zeile fortzufahren. 


Hier sehen Sie ein kurzes Programm, durch das die Verwendung der 
GOSUB- und RETURN-Statements demonstriert werden soll. Pro- 
bieren Sie es einmal auf Ihrem Computer aus. 


10 N = 122 

20 GOSUB 100 
30 N = 109 

40 GOSUB 100 
50N=97 

60 GOSUB 100 
70 END 


10 SOUND 0,N,10,8 

110 FOR W = 1 TO 200: NEXT W 
120 SOUND 0,0,10,8 

130 FOR W = 1TO 10: NEXT W 
140 RETURN 


a) Welche Zeilen enthalten die Subroutine? een 
b) Wie oft wird die Subroutine verwendet? . 2... een 
c) Wieviele Noten werden gespielt? . . 2 cn 


a) 100, 110, 120, 130, 140 b) 3 c) 3 


47. Hier folgt nun ein Programm mit “verschachtelten‘‘ Subroutinen. In 
Zeile 110 wird die Subroutine 1000 aufgerufen. Anschließend wird in 
Zeile 1020, also noch innerhalb der ersten Subroutine, die Subroutine 
2000 aufgerufen. Sie kehrt von Zeile 2010 zur Zeile 1030 der ersten 
Subroutine zurück. Daraufhin springt das Programm zurück zum 
Hauptprogramm. Das nachfolgende Programm spielt eine Tonleiter 
von einer Oktave und bildet gleichzeitig die Noten farbig auf dem 
Bildschirm ab. 


18 GR. 3 

228 COLOR ı 

32 SETCOLOR 1,18,2 

48 FOR N = 5 TO 13 STEP 2 
52 PLOT 8,N: DRAWTO 38,N 

62 PLOT 9,15: DRAWTO 35,15 
72 PLOT 38,15: DRAWTO 35,15 
82 GOSUB 292989 

98 SETCOLOR 4,4,2 

122 CGLOR 2 
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118 xX=3: Y=15ı N=122: GOSUB 199282 
128 x=5: Y=14: N=189: GOSUB 1828 
138 X=7: Y=13:ı N=97ı GOSUB 1888 

148 X=9: Y=12: N=92: GOSUB 1228 

158 X=11: Y=11: N=82: GOSUB 1282 
168 X=13ı Y=18: N=73: GOSUB 1988 
1782 X=15: Y=9: N=65: GOSUB 1982 

188 X=17ı Y=8ı N=6l: GOSUB 192882 

198 END 


18282 PLOT X,Y 

1218 SOUND 8,N,182,8 
18228 GOSUB 28288 
1238 RETURN 


2888 FOR W= 1 TO 288: NEXT W 
22812 RETURN 


Ersetzen Sie Zeile 190 durch weitere Statements, um die Tonleiter 
wieder abwärts zu spielen und gleichzeitig die Noten darzustellen. (Bis- 
her spielt das Programm die Tonleiter nur aufwärts.) 


Hier sehen Sie eine Möglichkeit: 


198 xX=15: Y=9ı N=65:ı GOSUB 12282 

288 x=13: Y=18: N=73: GOSUB 19228 
218 X=11: Y=llı N=82: GOSUB 19298 
228 X=9: Y=12:ı N=92: GOSUB 1888 

238 X=7: Y=13: N=97:ı GOSUB 1988 

249 x=5: Y=14: N=189: GOSUB 12928 
258 X=3: Y=15: N=122: GOSUB 1828 
2689 END 


Das Tonerzeugungs-System Ihres ATARI-Computers ermöglicht die 
gleichzeitige Erzeugung von vier Stimmen (Voice), und zwar durch 
Variation von V im Sound-Statement. 


SOUND V,N,T,L 


Bis jetzt haben wir nur eine Stimme benutzt, aber das soll nun anders 
werden. 
12 L8 = 8: LI = 28 


41: Ni = 129 
38 GOSUB 1888 


42 Li = 8: GODSUB 1288 
58 L@ = 8: GOSUB 1288 
68 Li = Bı GOSUB 1988 
78 STOP 


18228 SOUND 2,N2,182,L82 

1218 SOUND 1,N1,18,L1 

1828 FOR W = 1 TO 1882: NEXT W 
1238 RETURN 


a) Wieviele Töne hören Sie, wenn Zeile 30 ausgeführt wird? .......-. ; 
b) Wieviele Töne sind bei der Ausführung von Zeile 40 zu hören? ..... 
c) Wieviele Töne hören Sie bei der Ausführung von Zeile 60° ........ 3 
d) Welche Stimme wird durch Zeile 50 abgeschaltet? ..... Re 


a) 1, da die Lautstärke von Voice 1 auf O gesetzt wurde. 
b) 2 c) keinen d) Voice O0 


49. Das folgende Programm erzeugt eine einfache Melodie mit zwei 
Stimmen. Um die einzelenen Töne jeweils in der richtigen Länge an- 
zuhalten, werden drei Subroutinen verwendet. Jede Zeile des Haupt- 
Programms ruft eine Subroutine auf, um ein Notenpaar zu spielen. 


18 ND = 4l1ı Ni = 129ı GOSUB 2988 
228 N@ = 32: Ni = 199ı GOSUB 1988 
38 NZ = 27: Ni = 92ı GOSUB 3998 

48 N@ = 3lı Ni = 97ı GOSUB 2288 

5S8 NG = 32ı Ni = 189: GOSUB 1992 
628 NG = 36: Ni = 122: GOSUB 3988 
78 N = 41: Ni = 129: GOSUB 1828 
88 NG = 36ı Ni = 122: GOSUB 1882 
98 N@ = 32: Ni = 189ı GOSUB 1998 
1898 NZ = 36: Ni = 122: GOSUB 3988 
118 N = 27: Ni = 92: GOSUB 2298 
128 N@ = 8ı Ni = 8ı GOSUB 128982 

138 N@ = 41: Ni = 129: GOSUB 2988 
148 N@ = 32: Ni = 199: GOSUB 19298 
158 N = 25ı Ni = 92: GOSUB 3988 
168 NG = 36: Ni = 122: GDSUB 2998 
178 NZ = 32: Ni = 199: GOSUB 1998 
188 NZ = 31: Ni = 97ı GOSUB 1988 
198 N = 32: Ni = 189: GOSUB 1928 
288 NG = 36: Nl = 122: GOSUB 1888 
218 N@ = 27: Ni = 92: GOSUB 2992 
228 NG = 41: Ni = 129: GOSUB 1998 
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238 N = 32: NI 
248 NZ = 36: NI 
258 NZ = 41: NI 
2629 GOSUB 1998 
278 GR. 2 

282 END 


189ı GOSUB 2999 
122: GOSUB 1988 
129: GOSUB 39988 


Füllen Sie in den folgenden Subroutinen die leeren Stellen aus: 


1000 SOUND 0, 
1010 SOUND 1, 


RER DE EEE 5,8 Ara ana Me TEE EL er ee 


VON) nenn mann are EEE en an 
2000 SOUND 0, 
2010 SOUND 1, 


nd re ee ne m 
PEST EEE EINER ET SE DER U et ae 


ET ENT Be RER ET ea; 


ZU a Era en ba a 
3000 SOUND 0, 
3010 SOUND 1, 


UNE NE NE ee ie nahe 
ETF EREEN EI DB EEE TE ne 


SE EEE I ET TE DE rare ae RER re 


3030 


REFERENT IR una ae ae a ET Er en are ee 


1222 SOUND 2,N2,182,8 
10128 SOUND 1,N1,19,8 
1832 RETURN 


2282 SOUND 2,N2,19,8 
2212 SOUND 1,N1,18,8 
2238 RETURN 


3222 SOUND 8,N2,18,8 
3218 SOUND 1,N1,18,8 
3838 RETURN 


50. Ändern Sie die Subroutinen im letzten Programm so ab, daß die 
Graphik-Betriebsart 3 verwendet wird. Stellen Sie in der Subroutine 
1000 einen blauen, in der Subroutine 2000 einen goldenen und in der 


Subroutine 3000 einen roten Balken in der Nähe der Bildschirmmitte 
dar. 


IE FERETHEEITE UBER NETTE Da ER RESE arın anprrLauhe To RraareNe D en 
BIENEN STE ER IT Diranae  LEE  TE E en ae wre 
"RE RSRUEENE Bee ARTEN TEE Era ar ern 


FREIE TEE DIE DEE EEE ae: Wehen, DR EEE I A I et a 


1812 COLOR 1 
1813 SETCOLOR 8,8,2 
1814 PLOT 8,12ı DRAWTO 5,12 


2A11 GR. 3 

2812 COLOR 1 

2813 SETCOLOR 8,1,2 

2814 PLOT 8,12: DRAWTO 12,12 


3Al1l GR. 3 

3#12 COLOR 1 

3213 SETCOLOR 8,4,2 

3214 PLOT 28,12: DRAWTO 15,12 


51. Das nächste Programm erstreckt sich über die Abschnitte 51 bis 55. 
Darin wollen wir zu unserer Melodie zwei—, drei— und vierstimmige 
Harmonien hinzufügen. Das Programm ist ziemlich lang. Daher soll 
es in mehrere Abschnitte unterteilt werden. 


Eine der Stimmen spielt im Hintergrund eine sich wiederholende Folge 
von drei Tönen. Daher haben wir drei Subroutinen für die Sound- 
Statements verwendet, wobei jede Subroutine einen dieser Hinter- 
grund-Töne enthält. Zusätzlich enthalten die Subroutinen aber auch 
die Sound-Statements für die beiden anderen Stimmen. Da diese Sub- 
routinen die wichtigsten Bestandteile des Programmes sind, wollen wir 
uns mit Ihnen zuerst beschäftigen. 


1000 SOUND 0,183,10,8 


erster Hintergrund-Ton 


1010 SOUND 1,N1,10,8 Voice 1 
1020 SOUND 2,N2,10,8 Voice 2 
1030 FÜR Wei TO 25:NEXT W Notenlänge 


1040 RETURN 
2000 SOUND 0,137,10,8 
2010 SOUND 1,N1,10,8 
2020 SOUND 2,N2,10,8 


zweiter Hintergrund-Ton 
Voice 1 
Voice 2 
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2030 FOR W=1 TO 25:NEXT W 
2040 RETURN 
3000 SOUND 0,145,10,8 


Notenlänge 


dritter Hintergrund-Ton 


3010 SOUND 1,N1, 10,8 Voice 1 
S020 SOUND 2,N2,10,8 Voice 2 


3030 FOR W=1 TO Z5:NEXT W 
3040 RETURN 


Notenlänge 


Jede dieser Subroutinen spielt gleichzeitig eine bestimmte Anzahl von 
Tönen für eine vorgegebene Zeitdauer. 


a)3 b) die FOR-NEXT-Schleifen in den Zeilen 1030, 2030 und 3030 


52. Jetzt wollen wir uns den Anfang des Programms ansehen, in dem 
die Noten programmiert werden, die gespielt werden sollen. 


10 Ni=0:N2=0:G0SURB 1000 N1,N2 stumm 
20 GOSUR 2000 
SO GOSUR 3000 
40 GOSUR 1000 
SO GOSUB 2000 
0 N2=61:G0OSUR I000 
70 N2=46: G0SUR 1000 
80 GOSUB 2000 
70 GOSUB F000 


100 END 


Voice 2 wird mit Ton 2 aktiviert 
Ton 2 wird geändert 
gleicher Ton, aber Änderungen 


im Hintergrund 


Geben Sie jetzt diesen Teil des Programms, zusammen mit den Sub- 
routinen, ein und lassen Sie es ablaufen. 


a) Wieviele Töne sind in Zeile 10 zu hören? 2 en 
b) Ändert Zeile 20 den Klang? ..... 2 can 


a) Nur einer, der Hintergrundton (183) 
b) Der Hintergrundton ändert sich in 137. 
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c) Zeile 60 (aber auch Zeile 70, 80, 90) 


53. Ersetzen Sie Zeile 100 und fahren Sie wie folgt fort: 


100 
110 
120 


130 


N1=48: N2=41:G60SUR 
N1=46: N2=F36: GOSUR 
N1=41:N2=34:GOSUR 
N1=36:N2=31:GOSUR 


1000 Voice 1 und 2 ein 
POOOo ändert den Ton 
=0C6O ändert den Ton 
1600 ändert den Ton 


ändert nur den Hintergrund 


140 GOSUR 2000 
150 GRSUR 3000 
160 N1=48:N2=41:G60SUB 1000 ändert alle drei Töne 
170 GOSUR 2000 ändert nur den Hintergrund 
180 GOSUR 3000 
190 END 


ändert nur den Hintergrund 


ändert erneut den Hintergrund 


Lassen Sie nun auch dieses Programm ablaufen. 


54. Der nächste Abschnitt fährt in der gleichen Weise fort, bis auf die 
letzten drei Zeilen (280 — 320). 190 Ni1=46: N2=36: GOSUR 1000 
200 GOSUB FO00 
210 Ni=48:GOSUR F000 
220 N1=54:N2=34:60S5UB 1000 
230 Ni=41:N2=36:60SUB 2000 
240 N1=73:N2=46:G0SUR 1000 
250 N1=75:N2=46:G0SUR 1000 
240 GOSUR 2000 
270 N1=69: N?=54:G0SUR 3000 
280 SOUND 0,183,10,8 
290 SOUND 1,82,10,8 
>00 SOUND 2,69,10,8 
>10 SOUND 3,61,10,8 
220 FOR W=1 TO 50:NEXT W 


a) Wieviele Stimmen sind während der Ausführung von Zeile 320 zu 
ER 2 esse a Serena ui erh eeare Iesesnnae 


b) Wie verhält sich die zeitliche Länge der Töne zu der in den Sub- 
routinen verwendeten Tondauer? 


b) Sie ist doppelt so groß (FOR W = 1 TO 50) 


55. Hier ist der Rest des Programms. 


E30 
340 
350 
67-10) 
370 
80 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
S20 
330 
540 
550 
560 
570 
Seo 
5970 


a) Wievie Noten enthielt der letzte gespielte Ton? 


N1=41:N?2=0:NF3=0:G0SUR 3000 


N1=73:N2=46:B0SUR 1000 

GOSURB 2000 

N1=46: N2=0:60SUB 3000 

Ni=61:N2=41:G0SUR 1000 

N1=46: N2=36:G0SUB 2000 

Ni1=41:N2=34:G0SUB 3000 

Ni1=36:N2=31:G0SUR 1000 

GOSUR 2000 

N1=46: G0SUB 3000 

Ni1=48: N2=41:60SUR 1000 

GOSUB 2000 

N1=0:N2=36: 60SUB Z000 
N1=54:N2=34:B0SUR 1000 

GOSUR 2000 

Ni=0:G0SUR 3000 

Ni=s1:N2=34:B0SUR 1000 
2=36:G0SUR 2000 

Ni1=69: N2=41:B0SUB F000 

N1=73:N2=61:60SUR 1000 

N1=44: GOSUB 2000 

N1=82: N2=61:60SUB 3000 

SOUND 0,183,10,8 

SOUND 1,92,10,8 

SOUND 2,46,10,8 

FOR W=1 TO 75:NEXT W 

END 


EIGENTEST 


sl 9 ee he 


Unseren Grückwunsch!!! In diesem Kapitel haben Sie wieder eine ganze 
Menge gelernt. Wir haben Ihnen einige Grundkenntnisse vermittelt, auf 
denen Sie aufbauen können um die Graphik- und Klangerzeugungs- 
Möglichkeiten Ihres ATARI-Computers noch besser kennenzulernen. 
Verwenden Sie diesen Eigentest dazu, um Ihr Wissen zu demonstrieren. 


1. Bei Ihrem ATARI-Computer sind 8 verschiedene Bildschirm-Betriebs- 
arten zum Mischen von Text und Graphiken vorgesehen. Sie werden 
von O bis 7 numeriert. In den früheren Kapiteln wurden alle Pro- 
gramme in der Text-Betriebsart geschrieben. 


a) Welches Graphik-Statement wird für die Textdarstellung ver- 
} wendet? 


se Eee aa TETTDLE E ELTEETET Eee e Fz 


2.Schraffieren Sie in dem abgebildeten Raster die Punkte, die durch 
folgendes Statement bezeichnet werden. 


20 PLOT 4,1 


in 
0,0 


3. Vervollständigen Sie das nachfolgende Programm so, daß es eine 
schräge Linie von der linken oberen Ecke in die rechte untere Ecke 
des Graphikfeldes zeichnet. 

10 GRAPHICS 4 
20 COLOR 1 
30 PLOT 


2 ARMEE LE Beeren a Er ie ee ee eigen Breker 


EI EN RT TE TEE ie ereriee 5 rate 
Dee ar ar a u Er Er Er ru Er Er 


b) Wie lang war die Dauer des letzten Tons im Vergleich mit der in den 


Subroutinen verwendeten Tondauer? .... 22222220 sense 


b) dreifache Länge 


4.Schreiben Sie für den Graphik-Mode 6 ein Programm, welches das 
größtmögliche Rechteck in die Graphikfläche zeichnet. Ziehen Sie 
auch, wie in der Skizze angedeutet, die Diagonalen. 
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5. Lassen Sie das folgende Programm auf Ihrem Computer ablaufen, um 
die Fragen 5 a), b) und c) zu beantworten. 


10 GRAFHICS 5 

20 COLOR 1 

30 FOR M=0 TO 4 STEF 2 

40 FOR N=0 TO 15 

50 SETCOLOR M,N,z 

&0 FLOT 2,10:DRAWTO 12,10 
70 FOR W=1 TO Z00:NEXT W 
80 NEXT N 

90 NEXT M 


Schreiben Sie in die leeren Stellen die Worte BAR, NEXT WINDOW 
oder BACKGROUND. 


a) Welches Wort ändert bei M=O die Farbe? ..........:zrerec0 0. 
b) Welches Wort ändert bei M=2 die Farbe? .......:s2:sceeere00n 
c) Welches Wort ändert bei M=4 die Farbe? .......+-zssrereee.. 


6. Was geschieht auf dem Bildschirm, wenn das folgende Programm 
SBIAUTN une vu Sue Haaren 3 een ee ee 


10 GRAFHICS 3 

=0 COLOR 1 

söO FOR N=0 TO 15 

40 SETCOLOR 0,N+3,2 

SO FLOT 2,5:DRAWTO 2,10 
80 FOR W=1 TO ZOO:NEXT W 
70 SETCOLOR 4,N,2 

80 FOR W=1 TO ZO0O:NEXT W 
970 NEXT N 


7.Schreiben Sie ein Programm, durch das die Zeichenfläche im 
Graphik-Mode 3 mit abwechselnden Punkten gefüllt wird (d. h. 0,0; 
02;0,4...2,0;2,2...). Benutzen Sie dazu verschachtelte FOR- 
NEXT-Schleifen und programmieren Sie Ihre Lieblingsfarben. 


nV ne GREEEE EREERE Teeeae e eee e 
“ng Be TE ee ET rien Re reine wis re enee 
2 CHETEWE en u Er ei ie ee re 
. EHER HE VEEDE HE ER ee ee een r e 
„ee nee ne ae rei u Er ee ae er: ILL E e ene 
ne ee re EEE Here re EEE es te 
um ven ara ee een ee ee ee een ee 


nr... Nine FERERTELÄETEE TE re ee RE Eee 


8. Jetzt wollen wir das SOUND-Statement benutzen. 
a) Wieviele verschiedene Stimmen können gleichzeitig gespielt 
WEIGHT aaa uneirieng e 
b) Die Lautstärkewerte können auf jede ganze Zahl zwischen 
Seiler Anal und ........... gesetzt werden. 
c) Die Tonhöhen-Variable N kann von .......... Be ira 
reichen. 


9. Das SOUND-Statement im folgenden Programm veranlaßt, daß 
ein Ton hörbar wird. Wie lange erklingt er? 
10 INPUT N 
20 SOUND 0,97,10,8 
30 GOTO 10 


no... 1.1.1... nn ne Eee. 


10. Schreiben Sie, unter Verwendung der Tabelle in Abschnitt 42 
ein Programm, durch das eine Oktave der C-Dur-Tonleiter (C bis 
C) gespielt wird. 


ae RETTEN ER we are ei ee re see eier ei 
rwimlene Wa Be ee ar ee ee au ee ee 
une DER ET Hee.e ie Allenaiere wie Herne re ee ee le enele ie 
EEE RR ET a EEE Re ee ee ale es bean 
ne ee ie el ee ee ne ee ee ee 
EDEN BR ae we Eu ee ee ie te tee 


„nn are ee aaa ee ee 


11. Gegeben ist das Programm: 
10 NO=36: N1=122: GOSUB 1000 


20 NO=32: N1=109: GOSUB 2000 
30 END 


Schreiben Sie die Subroutinen, welche die Töne spielen. Die Sub- 
routine 1000 sollte Töne mit einer Länge von 50 Einheiten und 
Subroutine 2000 solche mit einer Länge von 100 Einheiten er- 


zeugen. 


mE Be mern ae EEE FE FRE NR FE ET EEE Ara. 


sr nee ee ie RE BEE VA rn wenn 


88 DRAWTO 9,8 
98 DRAWTO 157,79 
188 PLOT 9,79 
112 DRAWTO 157,8 


5.a) BAR 
b) NEXT WINDOW 
c) BACKGROUND 


(Abschnitte 5,7,18,20) 


(Abschnitte 23,26) 
(Abschnitte 24,26) 
(Abschnitte 25,26) 


6. Sowohl BAR als auch BACKGROUND ändern die Farbe. 


(Abschnitte 23 — 26) 


EEE ETEE LE RER DE Bea nnd near re ee es ale 


Re er re ut EEE ee ee ie ae I 


ENDET Be Bee re re a. rer; ne nee an 


EEE IE EEE ae En  ERLTE EE EETE RE R ttee e 


ET EN RER DEREN FREE EEE DEE FE re are 


. Unser Programm: 


18 GRAPHICS 3 
28 COLOR 1 
38 SETCOLOR 8,2,2 


nn EEE er ereee e uee  reateee a 


Antworten zum Eigentest 


1.a) 10 GRAPHICS O 
b) 10 GRAPHICS 6 oder 10 GRAPHICS 7 


2.20 PLOT 4,1 bezeichnet das eingezeichnete Rechteck in der fünften 


Spalte und der zweiten Reihe, 


3.30 PLOT 0,0 
40 DRAWTO 78,39 


4. 18 GRAPHICS 6 
28 COLOR ı 
39 SETCOLOR 8,12,2 
42 PLOT 9,8 
58 DRAWTO 157,8 
68 DRAWTO 157,79 
78 DRAWTO 9,79 
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42 FOR N = 8 TO 39 STEP 2 
5@2 FOR M = 8 TO 19 STEP 2 
62 PLOT N,M 

78 NEXT M 

82 NEXT N 


8.2) 4 
b) Obis 15 
c) O bis 255 


Abschnitte 5,9,23) 


(Abschnitt 47) 
(Abschnitt 37) 
(Abschnitt 41) 


9. Solange, bis ein neuer Ton durch INPUT eingegeben wird. 


(Abschnitt 38) 


10. Ihre Programm sollte etwa so aussehen: 


18 FORA = 1 TO 8 

28 READ N 

398 SOUND 8,N,12,8 

42 FOR W = 1 TO 288: NEXT W 
52 NEXT A 

62 DATA 122,199,97,92 

78 DATA 82,73,65,61 


Die Zeilen 60 und 70 können auch lauten: 


68 DATA 61,54,48,46 
78 DATA 41,36,32,31 


11. 1988 sounD 8,N8,18,8 
1818 SOUND 1,N1,18,8 
1228 FOR W = I TO 581 NEXT W 
1838 RETURN 


2828 SOUND 8,N8,18,8 

2818 SOUND 1,N1,182,8 

29228 FOR W = 1 TO 188: NEXT W 
2838 RETURN 


(Abschnitt 42) 
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NOTIZEN 





ABSCHLUSS-TEST 


Nachdem Sie nun das ganze Buch durchgearbeitet haben, können Sie 
alles, was Sie bisher gelernt haben, im folgenden Abschlußtest noch 
einmal überprüfen. Die jeweiligen Lösungen finen Sie im Anschluß an 
den Test. 


1.”STARS” ist der Name eines Zahlenratespiels, das zuerst in der 
Zeitschrift “People's Computer Company“ veröffentlicht wurde. Es 
ist für Spieler aller Altersgruppen geeignet, aber auch seine Pro- 
grammierung ist eine reizvolle Aufgabe. 


Hier finden Sie die Regeln, die der Computer auf dem Bildschirm 

ausgibt. Sie brauchen sie natürlich nicht mehr in Ihrem Programm 

vorzusehen. 
“Ich denke mir eine ganze Zahl zwischen 1 und 100. Versuchen 
Sie, meine Zahl zu erraten. Wenn Sie einen Rateversuch gemacht 
haben, werde ich einen oder mehr Sterne (*) abbilden. Je näher 
Sie an meiner Zahl sind, um so mehr Sterne werde ich abbilden. 
Ein Stern (*) bedeutet, daß Sie von meiner Zahl sehr weit ent- 
fernt sind. Sieben Sterne sagen Ihnen, daß Sie sehr, sehr nahe an 
meiner Zahl sind.!!1” 


Die Logik dieses Spiels sieht folgendermaßen aus. Wenn Ihre Zahl 
um mehr als 64 von der richtigen entfernt liegt, wird ein Stern abge- 
bildet; 32... 63 entfernt: 2 Sterne; 16... 31 entfernt: 3 Sterne; 
8...15 enfernt: 4 Sterne;4...7 entfernt: 5 Sterne;2...3ent- 
fernt: 6 Sterne; bei einer Abweichung von nur 1: 7 Sterne. Zur Pro- 
grammierung benötigen Sie die Absolut-Wert-Funktion. Die für 
Sie zwar noch neu, aber trotzdem leicht anzuwenden ist. 


Beispiele: 
ABS(10)=10 
ABS(—10)=10 


IF ABS(X-Y)= 10 THEN 100 


Ein Lauf sollte so aussehen: 


RUN 
GEBEN SIE IHRE ZAHL EIN? 10 
*”%* 
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GEBEN SIE IHRE ZAHL EIN? 50 


KERRRR 


GEBEN SIE IHRE ZAHL EIN? 48 
SIE HABEN GEWONNEN!!! 


2. Vielleicht haben Sie schon auf einem anderen Computer Matrix- 
Befehle verwendet. (Matrix ist ein anderes Wort für Array). Die bei 
Heim-Computern verwendeten BASIC-Versionen enthalten meist 
keine Matrix-Kommandos, jedoch sind sie leicht zu simulieren. 


Versuchen Sie das einmal an folgendem Beispiel. Sie haben zwei 5x3- 
Arrays A und B, die mit kleinen Zahlen gefüllt sind. Diese Zahlen 
werden aus DATA-Statements in die Elemente des Arrays eingelesen. 
Schreiben Sie nun ein Programm, um jedes Element des Arrays zu 
dem entsprechenden Array aus Element B zu addieren und die 
Summe an die gleiche Position in einem dritten Array C einzu- 
schreiben. 





Beispiel: 
A(1,1) + B(1,1) = C(1,1) 
A(1,2) + B(1,2) = C(1,2) usw. 


RUN 
INHALT DES A-ARRAYS 
7 8 9 
3 2 1 
6 8 2 
1 4 1 
8 10 2 
INHALT DES B-ARRAYS 
3 6 8 
2 4 7 


1 3 1 

8 a 9 
6 6 6 
INHALT DES C-ARRAYS 
10 14 17 

5 8 8 

7 11 3 
9 8 10 
14 16 8 


3.Schreiben Sie ein Programm, durch das amerikanische Maße in 
metrische und umgekehrt umgewandelt werden. Schreiben Sie Ihr 
Programm so, daß der Benutzer die gewünschte Umwandlung aus- 
wählen kann, wie es der folgende Lauf zeigt. 


RUN 

WUENSCHEN SIE EINE UMWANDLUNG VON 

(1) METRISCHEN IN AMERIKANISCHE ODER 

(2) AMERIKANISCHEN IN METRISCHE EINHEITEN 

GEBEN SIE 1 ODER 2EIN? 1 

WUENSCHEN SIE EINE LISTE DER UMWANDLUNGEN (J ODER N)? J 
WAEHLEN SIE DIE UMWANDLUNG AUS DIESER LISTE: 

(1) ZENTIMETER IN ZOLL 

(2) METER IN FUSS 

(3) KILOMETER IN MEILEN 

(4) KILOGRAMM IN POUND 

(5) GRAMM IN UNZEN 

(6) LITER IN QUARTS 

(7) GRAD CELSIUS IN GRAD FAHRENHEIT 

GEBEN SIE DIE NUMMER DER GEWUENSCHTEN UMWANDLUNG EIN? 5 


WIEVIEL GRAMM? 10 
10 GRAMM = .35 UNZEN 


WUENSCHEN SIE EINE UMWANDLUNG VON 

(1) METRISCHEN IN AMERIKANISCHE ODER 

(2) AMERIKANISCHEN IN METRISCHE EINHEITEN 

GEBEN SIE 1 ODER 2EIN? 2 

WUENSCHEN SIE EINE LISTE DER UMWANDLUNGEN (J ODER N)? J 
WAEHLEN SIE DIE UMWANDLUNG AUS DIESER LISTE: 

(1) ZOLL IN ZENTIMETER 

(2) FUSS IN METER 

(3) MEILEN IN KILOMETER 
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(4) POUND IN KILOGRAMM 

(5) UNZEN IN GRAMM 

(6) QUARTS IN LITER 

(7) GRAD FAHRENHEIT IN GRAD CELSIUS 

GEBEN SIE DIE NUMMER DER GEWUENSCHTEN UMWANDLUNG EIN? 3 


WIEVIELE MEILEN? 2 
2 MEILEN = 3.218 KILOMETER 
WUENSCHEN SIE EINE UMWANDLUNG VON 
(1) METRISCHEN IN AMERIKANISCHE ODER 
(2) AMERIKANISCHEN IN METRISCHE EINHEITEN 
GEBEN SIE 1 ODER 2EIN? 1 
WUENSCHEN SIE EINE LISTE DER UMWANDLUNGEN (J ODER N)?N 
GEBEN SIE DIE NUMMER DER GEWUENSCHTEN UMWANDLUNG EIN? 1 


WIEVIEL ZENTIMETER? 50 
50 ZENTIMETER = 19.5 ZOLL 


usw. 

Wir schlagen Ihnen vor, zur Organisation dieses Programms umfang- 
reichen Gebrauch von Subroutinen zu machen. Das Hauptprogramm 
sehen Sie nachfolgend. In diesem Segment wählt der Benutzer aus, 
welche Art von Umwandlungen er wünscht. Das Programm ver- 
zweigt dann zu Subroutinen, welche die speziellen Umwandlungen 
in Listen enthalten. Von diesen beiden Subroutinen aus verzweigt 
das Programm nochmals zu einer von vierzehn Sub-Subroutinen 
(sieben für jede Umwandlungs-“Richtung”). 


WUENSCHEN SIE EINE UMWANDLUNG VON 

(1) METRISCHEN IN AMERIKANISCHE ODER 

(2) AMERIKANISCHEN IN METRISCHE EINHEITEN 
GEBEN SIE 1 ODER 2EIN 










WUENSCHEN SIE EINE LISTE DER UMWANDLUNGEN 
(J ODER N)? J 

WAEHLEN SIE DIE UMWANDLUNG AUS DIESER LISTE: 

(1) ZENTIMETER IN ZOLL 

(2) METER IN FUSS 

(3) KILOMETER IN MEILEN 

(4) KILOGRAMM IN POUND 

(5) GRAMM IN UNZEN 
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(6) LITER IN QUARTS 

(7) GRAD CLSIUS IN GRAD FAHRENHEIT 

GEBEN SIE DIE NUMMER DER GEWUENSCHTEN 
UMWANDLUNG EIN?5 










WUENSCHEN SIE EINE LISTE DER UMWANDLUNGEN 
.  WODERN)J 

WAEHLEN SIE DIE UMWANDLUNG AUS DIESER LISTE: 

(1) ZOLL IN ZENTIMETER 

(2) FUSS IN METER 

(3) MEILEN IN KILOMETER 

(4) POUND IN KILOGRAMM 

(5) UNZEN IN GRAMM 

(6) QUARTS IN 1.ITER 

(7) GRAD FAHRENHEIT IN GRAD CELSIUS 

GEBEN SIE DIE NUMMER DER GEWUENSCHTEN 
UMWANDLUNG EIN 


Kehren Sie aus jeder dieser Subroutinen direkt zu der Subroutine 
zurück, von der aus der GOSUB-Befehl erfolgte. Von dort springen 
Sie unmittelbar, für eine neue Umwandlung, wieder ins Hauptpro- 
gramm zurück. 
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Nachfolgend finden Sie die zur Umrechnung benötigten Angaben: 


Metrische in US-Einheiten 


1 cm = .39 Zoll 
1m =3,28 Fuß 


1k 
1g 
11 

°C 


m = ‚62 Meilen 
= 0.035 Unzen 
= 1,0567 Quarts 
= 5/9(FP -32) 


US-Maße in metrische Einheiten 


1 Zoll = 2,54 cm 

1 Fuß = .3048 m 

1 Meile = 1,609 km 
1 Pound = 0,45 kg 
1 Quart = 0,946 I 


Fo 


= 9/5 0C +32 


1 kg = 2,2 Pound 


Antworten zum Abschlußtest 


REM***STAR-SPIEL 


LET N=INT(100*RND(1))+1 
PRINT "GEBEN SIE IHRE ZAHL EIN";: INPUT G 


IF G=N THEN PRINT 
LET D=ABS(G-N) 

IF D)=64 THEN 170 
IF D)=32 THEN 160 
IF D) =16 THEN 150 
IF D)’=8 THEN 140 
IF DJ =4 THEN 130 
IF D)=2 THEN 120 
PRINT USE; 

PRINT we 

PRINT "*"; 


140 PRINT "*"; 


"SIE HABEN GEWONNEN!!!'":GOTO 20 


150 
160 
170 


PRINT "*"; 
PRINT wu 
PRINT "*" ; GOTO 30 


REM X%X%*SIMULATION DER MATRIX-ADDITION 
REM *X*XkINITIALISIERUNG 

DIM A(5,3),B(5,3),C(5,3) 

REM *%XLADE ARRAY A UND B AUS DEN 
REM X%*DATA-STATEMENTS, DRUECKE DIE ARRAYS 
PRINT "INHALT VON ARRAY A":PRINT 

FOR X=1 TO 5 

FOR Y=1 TO 3 

READ A:A(X,Y)=ArPRINT A(X,Y, 

NEXT Y 

PRINT 

NEXT X: PRINT :PRINT 

PRINT "INHALT VON ARRAY B":PRINT 

FOR X=1 TO 5 

FÜR Y=1 TO 3 

READ B:B(X,Y)=B:FRINT B(X,Y), 

NEXT Y 

PRINT 

NEXT X#PRINT :FRINT 

REM XkXADDIERE A + B INC 
FRINT "INHALT VON ARRAY C":PRINT 

FOR X=1 TO 5 

FOR Y=1 TO 3 

LET C(X,V)=A(X,VI+B(X,Y)EPRINT C(X,Y), 
NEXT Y 

PRINT 

NEXT X 

REM %X®KDATEN FUER ARRAY A 

DATA 7,8,9,3,4,1,6,8,2,1,4,1,8,10,2 
REM %%KDATEN FÜER ARRAY B 

DATA 3,6,8,2,4,7,1,3,1,8,4,9,6,6,6 
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100 
105 
110 
120 
150 
140 
150 
150 


1000 
1010 
1020 
1050 
1051 
1032 


REM #KkUMWANDLUNG AUSGEWAEHLTER MASSEINHEITEN 
DIM A$(1) 

PRINT "WUENSCHEN SIE EINE UMWANDLUNG VON" 

PRINT "(1) METRISCHEN IN AMERIKANISCHE ODER" 
PRINT "(2) AMERIKANISCHEN IN METRISCHE EINHEITEN" 
PRINT "GEBEN SIE 1 DDER 2 EIN";:INFUT N 

ON N GOSUB 1000, 1100 

G0TO 110 


REM *#*kANWENDER WAEHLT DIE GEWUENSCHTE UMWANDLUNG METRISCH/US 

PRINT "WUENSCHEN SIE EINE LISTE DER UMWANDLUNGEN (J ODER N) "3: INPUT 
IF A$="N" THEN 1040 

PRINT "WAEHLEN SIE DIE UMWANDLUNG AUS DIESER LISTE: " 

PRINT "(1) ZENTIMETER IN ZOLL" 

PRINT "(2) METER IN FUSS" 


1033 PRINT "(3) KILOMETER IN MEILEN" 


1054 


PRINT "(4) KILOGRAMM IN POUND" 


1035 PRINT "(5) GRAMM IN UNZEN" 


1036 
1037 
‚1038 
1040 


PRINT "(6) LITER IN QUARTS" 

PRINT "(7) GRAD CELSIUS IN GRAD FAHRENHEIT" 

PRINT "(8) BEENDEN" 

PRINT "GEBEN SIE DIE NUMMER DER GEWUENSCHTEN UMWANDLUNG EIN"z = INPUT 


1050 ON M GOSUB 2100, 2200,2300, 2400, 2500, 2600, 2700, 2800 
10680 RETURN 


2100 REM *#**ZENTIMETER IN ZOLL 

2110 PRINT "WIEVIEL ZENTIMETER";: INPUT C 
2120 PRINT C;" ZENTIMETER = ";C#0.39;5" ZOLL" 
2130 PRINT :RETURN 


2200 REM %X%%METER IN FUSS 

2210 PRINT "WIEVIEL METER"; = INPUT M 
2220 FRINT M;" METER = ";M%X3.28;" FUSS" 
2230 PRINT :RETURN 


2400 REM #%kXkKILOGRAMM IN POUND 

2410 FRINT "WIEVIEL KILOGRAMM"3z: INPUT K 
2420 PRINT Kz;" KILOGRAMM = ";K42.2;5" POUND" 
2430 PRINT :RETURN 


2500 REM %K#AGRAMM IN UNZEN 

2510 PRINT "WIEVIEL GRAM";= INPUT G 

2520 PRINT G:" GRAMM = "56%0.035;" UNZEN" 
2530 PRINT :RETURN 


2600 REM %#%kALITER IN QUARTS 

2610 FRINT "WIEVIEL LITER"zZ=INPUT L 

2620 PRINT L;" LITER = "3L%1.0567;" QUARTS" 
2630 PRINT :RETURN 


2700 REM ##4GRAD CELSIUS IN GRAD FAHRENHEIT 

2710 PRINT "WIEVIEL GRAD CELSIUS";: INPUT D 

2720 PRINT D;" GRAD CELSIUS = ";9%D/5+323" GRAD FAHRENHEIT" 
2730 PRINT :RETURN 


2800 END 
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A$ 


M 





3100 
s110 
3120 
3130 


3200 
s210 
S3220 


3230 


3300 
s310 
3320 
3330 


3400 
3410 
3420 
3430 


3500 
S510 
33520 
3330 


3600 
3610 
SA20 
5630 


3700 
>710 
3720 
3730 


REM %%%*ZOLI. IN ZENTIMETER 
PRINT "WIEVIEL ZOLL";=INFUT I 


PRINT I5" ZOLL = "51%2.54;" ZENTIMETER" 


FRINT :RETURN 


REM %X%%kFUSS IN METER 
FRINT "WIEVIEL FUSS"; :INFUT F 


FRINT F3" FUSS = ";F%X0.3048; " METER" 


FRINT :RETURN 


REM %k%XMEILEN IN KILOMETER 
FRINT "WIEVIEL MEILEN"zZ=INFUT M 


FRINT M;5" MEILEN = "z;M%1.609;" KILOMETER" 


FRINT :RETURN 


REM %XXXFOUND IN KILOGRAMM 
FRINT "WIEVIEL FOUND";: INPUT F 


FRINT F}" FOUND = ";PX0.45;" KILOGRAMM" 


FRINT :RETURN 


REM *%*kkUNZEN IN GRAMM 
FRINT "WIEVIEL UNZEN"Z =: INFUT DO 


FRINT 05" UNZEN = ";0%28.35;" GRAMM" 


FRINT :RETURN 


REM ®XXXQUARTS IN LITER 
FRINT "WIEVIEL QUARTS"z;: INPUT O 


FRINT @05" QUARTS = ";0%0.946;" LITER" 


FRINT :RETURN 


REM XkXGRAD F IN GRAD C 


FRINT "WIEVIEL GRAD FAHRENHEIT"z:INPUT D 


FRINT D;" GRAD FAHRENHEIT = ";5/9% (D-32)3" GRAD CELSIUS" 


FRINT :RETURN 
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NOTIZEN ANHANG 


BASIC-FUNKTION 


Dieser Anhang beschreibt einige der gebräuchlichsten und nützlichsten 
Funktionen, die sich bei den meisten, bei Personal-Computern üblichen, 
BASIC-Versionen finden. Diese Aufstellung ist keineswegs erschöpfend 
und darüber hinaus können auch Unterschiede in der Wirkung der 
Funktionen bei Ihrem Computer sein. Sehen Sie sich im Handbuch die 
komplette Liste der in Ihrer BASIC-Version zur Verfügung stehenden 
Funktionen an. 


Arithmetische Funktionen 


Im folgenden Text steht EXP‘ für jeden beliebigen BASIC-Ausdruck, 
eine BASIC-Variable oder einen Zahlenwert. 


ABS(exp): Liefert den Absolutwert des Ausdrucks, d. h., ABS(A)=A 
wenn A) =0, ABS(1)=—-A wenn A (0. 


Beispiel: IF ABS(X-G) ) = 64 THEN PRINT “*" 


EXP(exp): Berechnet die Exponential-Funktion zur Basis e, wobei 
e =2,71828... ist. Üblicherweise existiert eine obere Grenze für den 
Wert der Variablen. In BASIC muß der Wert in Klammern kleiner 
als 87.3365 sein. 

Beispiel: B=EXP(X) 
Y=C*EXP(-A*T) 


FRE(0): Diese Funktion wird zur Bestimmung des freien Speicher- 
platzes, der nicht von BASIC oder vom Programm belegt ist, ver- 
wendet. Diese Funktion wird in einem PRINT-Statement eingegeben, 
mit einer in Klammern gesetzten 0. Der Computer gibt dann die 
Anzahl der unbelegten Bytes an. 

Beispiel: PRINT FRE(O) 
Siehe auch: FRE(String Variable) unter String-Funktionen 
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INT(exp): Berechnet die größte ganze Zahl, die kleiner oder gleich exp. 
ist. Beachten Sie, daß INT(3.14)=3, INT(—3.14) aber —4 ist. Sehen 
Sie sich in Ihrem Manual die sehr ähnliche Funktion FIX an. 


LOG(exp): Liefert den natürlichen Logarithmus von exp. (Basis e). 
Beispiel: D=-LOG(1 +X 12) 


RND(Parameter): Erzeugt, gesteuert durch den Parameterwert, eine 
Zufallszahl zwischen O und 1. In BASIC liefert jeder positive Wert 
in Klammern jedesmal eine neue Zufallszahl. Bei einer Null in der 
Klammer erhält man die Zufallszahl, die als letzte erzeugt wurde. 
Auch bei Verwendung negativer Zahlen man für jede Zahl eine 
andere Zufallszahl, jedoch erhält man für den gleichen negativen 
Klammerwert immer dieselbe Zufallszahl. Da die RND-Funktion bei 
Ihrem Computer anders wirken kann, lesen Sie bitte in Ihrem Hand- 
buch nach. 


SGN(exp): Liefert eine 1, wenn der Ausdruck einen positiven Wert 
hat ( ) O0); sie liefert eine O, wenn der Ausdruck den Wert O hat und 
wird —1 für negative Werte des Ausdrucks. 


Beispiel: ON SGN(X)+2 GOTO 100,200,300 


Ist X negativ, verzweigt das obige Statement zur Zeile 100; ist X=0 
erfolgt die Verzweigung zur Zeile 200; ist X positiv, verzweigt das 
Programm zur Zeile 300. 


SQOR(exp): Liefert die positive Quadratwurzel des Ausdrucks. Der 
Ausdruck in Klammern muß O sein oder einen positiven Wert haben. 


Trigonometrische Funktionen 


SIN(exp), COS(exp), TAN(exp), ATN(exp): die Funktion SIN, COS 
und TAN berechnen den Sinus, Cosinus oder den Tangens eines Aus- 
druckes, wobei der Winkel im Bogenmaß (rad) angegeben sein muß. 
ATN berechnet den Hauptwert des Arcustangens und zwar ebenfalls 
im Bogenmaß. Der Wert für ATN(exp) liegt im Bereich: — m /2 ( 
ATN(exp) ( /2. 


String—Funktion 


ASC(String): Liefert den numerischen Wert des ASCII-Codes für das 
erste Zeichen eines Strings. 


Beispiel: PRINT ASC(B$) 


CHR$(exp): Wandelt eine Zahl in das entsprechende ASCII-Zeichen 
um. 


Beispiel: Die ASCI I-Code-Nummer 7 läßt bei einem Fernschreiber die 
Glocke, bzw. bei manchen CRT-Terminals einen Pieps ertönen. Um 
die Glocke zu läuten, müssen Sie CHR$(7) in einem PRINT-State- 
ment vorsehen: z. B.: PRINT CHR$(7) 


FRE(String Variable): Diese Funktion liefert die Anzahl der freien 
Bytes in dem für Strings reservierten Speicherbereich des Computers. 


LEN(String): Gibt die Anzahl der in einem String enthaltenen Zeichen 
an; Leertasten werden als Zeichen gezählt. 


Beispiel: FOR K-1 TO LEN(X$) 


STR$(exp): Wandelt einen numerischen Ausdruck in einen String um. 
Das Minuszeichen eines negativen Wertes und die Leerstelle für ein 
+" bei einem positiven Wert sind im String enthalten. 


Beispiel: B8=STR3(X*Y) 


VAL(String): Wandelt die String-Darstellung einer Zahl in einen 
numerischen Wert um. Der String muß ein numerisches Zeichen 
enthalten. 


Beispiel: X3="'33.3'' 
X=VAL(X$) 
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Dezimal 


000 
001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
011 
012 
013 
014 
015 
016 
017 
018 


Zeichen 


NUL 
soll 
STX 


ASCII-Zeichen-Code 


Dezimal 


037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 


Zeichen 


"+ xunovey 


sososı9u wm Ho=— 


"raskksbnaW>B'»V 1A" 


Dezimal 


074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 


Zeichen 


HOT NAEKS<ÖOCHURD VOZEr RM“ 


H2EBOoBH run Moaoacom 


Dezimal Zeichen 


115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


Ve nnung<ern 


Erläuterungen: 

LF = Zeilen-Vorschub (Line Feed) 

FF = Formularvorschub (Form Feed) 
CR = Wagen-Rücklauf (Carriage Return) 
DEL = Löschen (Delete) 


395 


396 


FEHLER-MITTEILUNGEN 


Fehler verursachen eine Mitteilung der Form: 


“ERROR xx at LINE nnn.” 


Die Fehler Nummer (*'xx’ in der obigen Zeile kann im Bereich von 1 


bis 199 liegen. 


Fehler-Nummer 
Fehler-Nummer 
Fehler-Nummer 
Fehler-Nummer 
Fehler-Nummer 
Fehler--Nummer 
Fehler-Nummer 
Fehler-Nummer 
Fehler--Nummer 


Fehler-Nummer 10: 
Fehler-Nummer 11: 
Fehler-Nummer 12: 
Fehler-Nummer 13: 
Fehler-Nummer 14: 
Fehler-Nummer 15: 
Fehler-Nummer 16: 
Fehler-Nummer 17: 
Fehler-Nummer 18: 


Fehler-Nummer 19: 
Fehler-Nummer 20: 
Fehler-Nummer 21: 


ESP ET 


POWER NOT ON 

MEMORY FULL 

VALUE ERROR 

VARIABLE TABLE FULL (zuviele Variablen) 

STRING LENGTH ERROR 

READ OUT OF DATA 

VALUE NOT + INTEGER 

INPUT STMT ERROR 

ARRAY/STRING DIM ERROR 

ARG STACK OVERFLOW 

FLOATING POINT OVERFLOW 

LINE NOT FOUND (GOSUB/GOTO) 

NO MATCHING FOR 

LINE TOO LONG 

GOSUB/FOR LINE DELETED 

BAD RETURNS 

EXECUTION OF GARBAGE 

STRING DOES NOT START WITH VALID 
NUMB 

LOAD PGM TOO BIG 

DEVICE NUMBER GREATER THAN 7 

NOT ALOAD FILE 


Liebe Leser, 


Wer bis hierhin das Buch durchgearbeitet hat, musste sicher viel Energie 
aufbringen. Dafür aber kann er nun mit Stolz von sich behaupten, eine 
neue Sprache gelernt zu haben. Die grösste Hürde ist genommen, und 
nun steht nichts mehr im Wege, den Dialog mit unserem Atari nach 
eigenen Wünschen zu gestalten. 


“Halt, werden Sie sagen, “ein kleines aber steht hier noch im Raum’. 
Richtig! Dieses Buch wurde in Amerika geschrieben und behandelt die 
dort erhältliche Version Ihres Ataricomputer. 


Sie jedoch haben die ‘bessere Maschine‘. Ihr Atari 400/800 unter- 
scheidet sich von der amerikanischen Ausführung nicht nur durch die 
Fernsehnorm (hier PAL, dort NTSC). 


In seinem Inneren verbirgt sich ein elektronischer Baustein, GTIA 
genannt. Dieser Baustein, komplex wie ein Mikrocomputerbaustein, 
hat eine besondere Aufgabe. Immer dann, wenn wir in den verschie- 
denen Graphikstufen mit unterschiedlichen Farben arbeiten, benötigen 
wir seine Hilfe. Er prüft jeden einzelnen “PRINT” oder “'PLOT‘' Befehl 
und markiert ihn mit unserem Farbwunsch. Er ist der “General- 
manager’ der Farbdarstellung. 


Hier kommt nun der Unterschied. In der amerikanischen Ausführung 
des Atari 400/800 ist nur die “kleinere‘’ Version dieses Bausteins, der 
CTIA vorhanden. Dieser beschränkt die über BASIC ansprechbaren 
Graphikstufen auf 9 (O bis 8). 


Der GTIA Ihres Atari 400/800 kann mehr. Er übernimmt das Mana- 
gement für weitere drei Graphikstufen (9, 10, 11) und erlaubt Ihnen 
bis zu 16 verschiedene Farben, oder eine Farbe in 16 verschiedenen 
Helligkeitsstufen gleichzeitig darzustellen. Wie dies geschieht, wird 
in den folgenden Zeilen versucht zu erklären. 


Zur Erinnerung und zur Vervollständigung nochmals eine Zusammen- 
stellung der Farbbefehle für die Graphikstufen O bis 11. 
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Farbbefehle für die Graphikstufen 0 bis 8 


Aus dem Buch haben wir gelernt, dass es zwei Befehle gibt, die zur 
Farbdarstellung benötigt werden. Mit dem SETCOLOR Befehl füllen 
wir einen “Farbeimer‘ mit der gewünschten Farbe und Helligkeit. Die 
erste Zahl des SETCOLOR Befehls (0 bis 4) bestimmt, welcher Eimer 
gefüllt werden soll. Die zweite Zahl (0 bis 15 entsprechend der Farb- 
tafeln im Handbuch oder Tabelle GR. 11, bestimmt die Farbe. Die 
dritte Zahl legt die Farbhelligkeit fest (8 Stufen, O bis 14 in Zweier- 
schritten). 


Z.B. SETCOLOR 2, 3,4 


bedeutet der Eimer Nr. 2 wird mit der Farbe 3 (rot) in der Helligkeit 
4 gefüllt. 


Mit dem “COLOR” Befehl (z. B. COLOR 0 — 255) bestimmen Sie 
welcher “Pinsel” zum malen benützt wird. Jeder Pinsel gehört in den 
verschiedenen Graphikstufen zu einem bestimmten Eimer. 


Vergessen Sie nicht: Um Farben darzustellen müssen Sie keine Farben 
benennen. Der Computer macht dies für Sie, indem er die Farbeimer 
(Farbregister) mit den Ausgangsfarben füllt. Sie können zu jeder Zeit 
diese Farben durch eine der 128 möglichen Farbhelligkeitskombi- 
nationen ersetzen. Welche Funktion die einzelnen Eimer und Pinsel 
in den verschiedenen Graphikstufen haben, ersehen Sie aus der folgen- 
den Aufstellung. Denken Sie bitte daran, dass jeder neue Graphikbefehl 
die Farbeimer wieder mit den Ausgangsfarben füllt. Berücksichtigen Sie 
bitte auch, dass in den Graphikstufen 3 bis 7 Ihre “PLOT und 
"DRAWTO“ Befehle solange keine Wirkung zeigen, bis Sie die Aus- 
gangslage (COLOR O=gleiche Farbe wie Hintergrund) durch einen 
entsprechenden COLOR Befehl (1 grösser) geändert haben. 


In den Graphikstufen 9 bis 11 stehen uns mehr Farben zur gleich- 
zeitigen Darstellung zur Verfügung. Die Auflösung in diesen drei 
Graphikstufen beträgt horizontal 80 (0 — 79) Bildpunkte und vertikal 
192 (0 — 191) Bildpunkte. 


In der Graphikstufe 9 können wir eine Farbe in 16 verschiedenen 
Helligkeitsstufen darstellen. Die Helligkeitsstufen werden hier durch 
den COLOR Befehl (COLOR O0 bis 15 - dunkel bis hell) bestimmt. Die 
Farben des Hintergrundes bestimmen wir mit dem SETCOLOR Befehl 
für Farbeimer 4. In der Ausgangslage ist dieser mit der Farbe Schwarz 
gefüllt, 


Versuchen wir es mit einem kleinen Programm. 
10 GRAPHIK 9 


20 SETCOLOR 4,3,0 
30 FORX=0TO 15 


(dunkelste Helligkeit von Rot) 


40 COLOR X (Helligkeit von O bis 15) 

50 PLOT X,0:DRAWTO X,191 

60 NEXTX 

70 GOTO 70 (WICHTIG, der Computer soll 
daran gehindert werden wieder in 
die Graphikstufe 0 zurückzu- 
springen). 

RUN 


Diese Befehle würden die entsprechenden Bildpunkte in verschiedenen 
Helligkeiten anschallten. Experimentieren Sie selbst. Geben Sie als 
letzten Befehl in Ihrem Versuchsprogramm stets folgendes ein: (Zeilen- 
nummer entsprechend Ihrem Programm) z. B. 70 GOTO 70. Tun 
Sie dies nicht, würde der Computer nach Ausführung automatisch in 
den Graphikmode O zurückspringen, den Bildschirm löschen und Sie 
könnten Ihr Kunstwerk nicht bewundern. 


Im Graphikmode 10 stehen uns neun verschiedene Farben zur Ver- 
fügung. Die Auflösung ist die gleiche. Die Farbzuweisung geschieht hier 
ebenfalls mit dem COLOR Befehl, COLOR 4 bis 8 sind in dieser Reihen- 
folge mit folgenden Farben belegt: orangerot, gruen, blau, violetrot, 
schwarz. Mit den COLOR Befehlen O bis 3 rufen Sie jedes Mal die 
vom Computer gesetzte Grundfarbe schwarz auf. Die Farbeimer für die 
COLOR Befehle 4 bis 8 können Sie mit den bekannten SETCOLOR 
Befehlen (0 bis 4) ändern. Für die COLOR Befehle O bis 3 wird die 
Sache etwas komplizierter. Diese “Pinsel” tauchen in Eimer, die Sie 
nicht durch die gewohnten SETCOLOR Befehle erreichen können. 
Hier hilft uns nur der aus dem BASIC bekannte POKE Befehl. Mit 
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ihm können wir die Eimer füllen. Die Adressen lauten 704, 705, 706 
und 707. Welche Zahl wir diesen Speicherstellen zuweisen müssen, er- 
rechnet sich nach folgender Formel: Farbnummer mal 16 + Helligkeits- 
wert. Lassen Sie mich dies an einem Beispiel erklären. 


Nehmen wir an Sie möchten den COLOR 1 Befehl statt schwarz die 
Farbe rot zuweisen. Die Adresse für den Farbeimer ist 705. Der Wert 
der dort abgelegt werden muss errechnet sich nun wie folgt: 


Farbnummer für rot: 3 
Helligkeitsstufe: 10 
Farbnummer * 16 + Helligkeitsstufe ) 3 * 16 + 10 = 58 


Dies ist der Wert, der an der Adresse 705 abgelegt werden muß. Dazu 
müssen wir folgenden Befehl eingeben: POKE 705,58 


Benützen wir nun COLOR 1 zum PLOTEN, so geschieht das in der 
Farbe rot in der Helligkeit 10. 


Experimentieren Sie selbst. 


In der Graphikstufe 11 können wir 16 Farben gleichzeitig zur Dar- 
stellung bringen. Die Auflösung ist die gleiche wie in den Graphikstufen 
9 und 10. 


Der COLOR Befehl (O0 bis 15) spricht direkt die bekannten Farb- 
nummern an. Die Helligkeit ist bei allen Farben gleich und wird durch 
den Helligkeitswert im Farbeimer 4 (SETCOLOR 4) bestimmt. Der 
Hintergrund ist in der Ausgangslage schwarz (Farbeimer 4 — SE.4,0,0). 
Die Hintergrundfarbe kann aber ebenfalls durch den Befehl SETCOLOR 
4 geändert werden. Die Hintergrundhelligkeit wird vom Computer vor- 
gegeben. Eine andere Farbe als schwarz verfälscht aber die Darstellung 
der restlichen Farben. 


Dazu ein kleines Demoprogramm zum experimentieren. 


> FOR X=1 TO 2 STEF 0:SREM IMMER WIEDER 

10 GRAFHICS I1IREM NEUES EILD Z/CRs LA 

15 FÜR Y=1 TO 50:IREM 50 MAL. 

20 C=RNDCOIKLSEREM ZUFALLSZÄHL >DUND “16 

30 COLOR CHREM COLORBEFEHL RUNDET C AUF DEN 
GANZZAHLWERT AE& 00-15) 

+0 FLOT 40,90 :DRAWTO INTERNDCO)XB0) INT CRND 

(OIXKIPZIEREM ZEICHENROUTINE 

S0 NEXT Y 

5 FOR TI=1 TO 4003NEXT TIIKREM ZEITSCHLEIFE 

60 NEXT X 


Übersichtstabelle — Farbbefehle in den Graphikstufen 0 bis 11 


KOORORKSOGKKKORIOKNKOIONIKKKKOONONKKKKCKROKONNORKCKKRHCKONKONOKKCKKCRRIIONKOIHNOK 


GRAPHIKSTUFE O0 UND ALLE TEXTFENSTER 


KOKOKNOOKIOOOIOKNONONORORKRKOOR KORK KRONE CKRKKCKNCKNORRCKONOOROKICKONNOK 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (FINSEL) 


BEDEUTUNG UND ANHENDUNG 


0 7 RRKOCKOKKIKOK DER COLORWERT BE- REKORDE 

1 HELLELAU STIMMT HIER DAS SCHRIFTHELLIGKEIT 
2 DUNKELBLAU ZEICHEN UND SEINE HINTERGRUNDFARBE 
3 KROKOKRKAOINOOKIK FARBE, KKINCKKKKKIKIKKK 

4 SCHWARZ RANDFARBE 


a Bars aan 13 EEE 
- ———— nn nn nn 
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KRKKKKKKAKKHWRNOCR COOK KK KK ICON KK KICK KK OK KANOKKEK KK KK KK KKKKKOKKNOKKK 
GRAPHIKSTUFE 1 UND GRAPHIKSTUFE 2 (TEXTMODI) 
KXKKKKKKKKERKKKEKEKKKK KK KK KICK KK CK KKXONCKNKONOKKKOKNOKIKOKOKK NK ION KK KON KOKKK OK KICK K KHK NICK KRIKK 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (PINSEL) BEDEUTUNG UND ANWENDUNG 


0 ORANGE DER COLORWERT BE- ZEICHEN 
1 HELLGRUEN STIMMT HIER WELCHES ZEICHEN 
2 DUNKELELAU ZEICHEN GEFLOTTET ZEICHEN 
3 VIOLETROT WIRD, ZEICHEN 
4 SCHWARZ HINTERGRUND (5.RAND) 


.,—_ nenn nn nenn. 
.——-------. 


KORNNONRCRKOK HORROR ONIKNONONKNONONOKCNCHRORORONOKOK OK IOKKOHONKONNONNOKKKIKKKKOKKR OK KOKKKKKKKKKKCK 
GRAPHIKSTUFEN 3,5,7 (VIERFARBENMODI) 
KK ACNCHORRONOKONOK ION IOKORON INCH NOCH OROKDIOK KERN KHK KORK KNKROKKIOKKK KK KKNKKKKKKKK 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (FINSEL) BEDEUTUNG UND ANWENDUNG 


0 ORANGE COLOR 1 GRAPHIKFUNKT 

1 HELLGRUEN COLOR 2 GRAPHIKFUNKT 

2 DUNKELBLAU COLOR 3 GRAFHIKFUNKT 

3 KEKKKKKKKKIK KKKIOKKK KKKRRICKKKIEKK 

4 SCHWARZ COLOR 0 GRAPHIKFUNKT UND 
AUSGANGSFARBE FUER! 
HINTERGRUND + RAND 


.-- mn - nn nn 


KREROORRIRIKIEROKIOKDKCN KORK KKONKNKOKNRKOROKKNKICRIOIOKNCN 
GRAPHIKSTUFEN 4 UND 6 (ZWEIFARBENMODI) 
KOKKOOKKOKSKIKKIOIONRKNKCKRONONK KO NONE NKONONKOONKKNOKKNORNON KINO 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (FINSEL) BEDEUTUNG UND ANWENDUNG 


0 ORANGE COLOR 1 GRAFHIKFUNKT 

1 KRRKKKKKK KKXKKXK KRRIOKKOKIKK 

2 KRRKKRKKX KRRKEXK RRKKKIORIKK 

3 KRKNKRKKK KERKKKK RKRRIOKKIK 

4 SCHWARZ COLOR 0 GRAFHIKFUNKT UND 
AUSGANGSFARBE FUER? 
HINTERGRUND + RAND 


POKDONORORK KORK ROKKONOKKKKCNNKKCK KONNEN 


GRAPHIKSTUFE8 ....... (EINE FARBE UND 2 HELLIGKEITEN) 
ROCK ONKNONOKKOONKONCONKKNRNXNOON KONNEN 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (PINSEL) BEDEUTUNG UND ANWENDUNG 


0 KEXKKKKNK KKRKXKK KEKKKRKNK 

1 HELLGRUEN COLOR 1 GR,FUNKT-HELLIGKEIT 
2 DUNKELBLAU COLOR 0 GR«PUNKT/HINTERGRUND 
3 KRRKNKKKK KRRKKKK KRKKKKKKK 

4 SCHWARZ KKRKERK RANDFARBE 


nn nn nn En nn 
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DKIKOKOKK HK OK ICOKKONCKROK OK IK NK OR KK KON OK KON OK OK OKOKOKDKOKORCRROROKOKOROKONCKKONONCIKOKOKOKOKOKOKOK KORK MO RIORSROOKRCK 


GRAPHIKSTUFE 9 (HORIZONTAL 80 VERTIKAL 
192... 16 HELLIGKEITSSTUFEN) 


DRK KON KK ROCK KORK RC RO KOKKOKORKOKKORKOROKOROOKOKOOKAIKOKOROIOK NORSK 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (FINSEL) BEDEUTUNG UND ANWENDUNG 


4 SCHWARZ COLOR 0 GR+F + /HINTERGRUNDFARBE 
KRKOKHOK VORKKKKK COLOR 1 GRPUNKT-HELLIGKEIT 1 
KRRKOKK KRROKKKK COLOR 2 GR»PUNKT-HELLIGKEIT 2 
KKKKKKK KRRROKKOKIKK COLOR 3 GR»«FUNKT-HELLIGKEIT 3 
RRRROKCKK KKKIKKKKK COLOR 4 GR»PUNKT-HELLIGKEIT 4 
KRKRKKK IKROCKIOKKOKIK COLOR 5-14 HELLIGKEIT 5 - 14 
KRONE KIOKOKKKKK COLOR 15 GR+PUNKT-HELLIGKEIT 15 


HELLIGKEIT 0(COLOR 0) HAT DIE GLEICHE HELLIGKEIT WIE DER HINTERGRUND. 


DKKOR KK ROROKOK KORK OKOR NK DK KK OR IKK DK OR IKOKOKORCOKOK KK OK KORK RROROKKOK OK BKOKOKOKROKOKOKONOROKOKOREROR KK KOKROKOKROKOKSKIKOKOKOK 


GRAPHIKSTUFE 10 (HORIZONTAL 80 VERTIKAL 
192 BILDPUNKTE... 9 FARBENMODE) 


DKIKIKOKNOKSKOKOKOKOKOKOKOK KK DROKOKDKOKOROKOKOROKCHOKOK OK KORK DK DK RK KOK OK KORK XEDKOKKOKOROKORONOKONOROKSKOKOKOKNOKOKOKOROKOKOKOOKOKOKOK 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (FINSEL) BEDEUTUNG UND ANHENDUNG 
-bzw, FOKE ADRESSE- 


704 SCHWARZ COLOR 0 GR«P + /HINTERGRUNDFARBE 
705 SCHWARZ COLOR 1 GRAFHIKFUNKT 
706 SCHWARZ COLOR 2 GRAFHIKFUNKT 
707 SCHWARZ COLOR 3 GRAFHIKFUNKT 
SETCOLOR 0 (708) ORANGE COLOR 4 GRAFHIKFUNKT 
SETCOLOR 1 (709) HELLGRUEN COLOR 5 GRAPHIKFUNKT 
SETCOLOR 2 (710) MITTELBLAU COLOR 6 GRAFHIKFUNKT 
SETCOLOR 3 (711) VIOLETROT COLOR 7 GRAPHIKFUNKT 
SETCOLOR 4 (712) SCHWARZ COLOR 8 GRAPHIKFUNKT 


DOKIKOKOKORKOOOROKONHROONROROKCHOKRKONK X ROIORROIIKOK KORK NCKOROKK ONCE RONRCK OK ROKKOHOKCKONK 


GRAPHIKSTUFE 11 (HORIZONTAL 80 VERTIKAL 
192 BILDPUNKTE .. 16 FARBMODE) 


DORORKAONHEICRONOIOROOOKNOKONOIOO KK ROCK ROOKIE KORK KRONE KOKOKKKCK KORB 


SETCOLOR (FARBEIMER) AUSGANGSFARBE COLOR (FINSEL) BEDEUTUNG UND ANHENDUNG 


SETCOLOR 4 (s,Text) SCHWARZ COLOR 0 GR,P /HINTERGRUNDFARBE 
KR HELLORANGE (GOLD) COLOR 1 GRAFHIKFUNKT 
KKKRICKKK ORANGEROT COLOR 2 GRAFHIKFUNKT 
KORK ROT COLOR 3 GRAFHIKFUNKT 
KKRIOKKKX VIOLET COLOR 4 GRAFHIKFUNKT 
RKKOKKK VIOLETELAU COLOR 5 GRAFHIKPUNKT 
KRKKRNOKK VERSCH,ELAUTOENE COLOR & GRAFHIKFUNKT 
KKAKKKKK VERSCH,ELAUTOENE COLOR 7 GRAPHIKPUNKT 
KKKRKKK VERSCH»ELAUTOENE COLOR 8 GRAFHIKFUNKT 
KKKKKKKK VERSCH.BLAUTOENE COLOR 9 GRAFHIKFUNKT 
KRKKKKKK GRUENELAU COLOR 10 GRAFHIKFUNKT 
RKAOKIKKICK VERSCH»GRUENTGENE COLOR 11 GRAFHIKPUNKT 
KRKKRKK VERSCH.GRUENTOENE COLOR 12 GRAFHIKFUNKT 
KRNOKKIKK VERSCH.GRUENTOENE COLOR 13 GRAPHIKPUNKT 
KRKKRIKK ERAUNGRUEN COLOR 14 GRAFHIKFUNKT 
RKROKKK HELLORANGE COLOR 15 GRAFHIKFUNKT 


FARBEIMER 4SETCOLOR 4) ENTHAELT DIE HINTERGRUNDFARBE.SEIN HELLIGKEITSWERT BE- 
STIMMT DIE HELLIGKEIT DER ANDEREN FARBEN, 


Pr} 
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NACHFOLGEND NOCH DREI WEITERE FROGRAMMBEISFIELE FUER DIE GRAFHIKSTUFEN 9-11, 


0 REM COPYRIGHT ATARI 

10 GRAFHICS 9 

15 SETCULOR 4,15,0 

20 FOR Y=55 TO 0 STEP -10 
30 FOR %=0 TO 24 

40 C=X:IF X>11 THEN C=24-X 
45 C=6+3 

50 Z=Y+(X) 

55 D=INT(SAR(144-(X-12)8(X-12)))/2 
57 COLOR 15-C 

58 PLOT Z,Y+7-D 

60 DRAWTO Z,Y+7+D 

70 COLOR C 

80 DRAWTO Z,180-Y+D 

180 NEXT X 

190 NEXT Y 

200 GO TO 200 


0 REM COPYRIGHT ATARI 
100 REM DEMO GR.10 


115 DIM C(8)SGRAFHICS 10:FOR Z=704 TO 71ZtIREAD RIR=RALEHBICKZ-704)=RIPOKE Z,R:NE 


XT zZ 
116 DATA -+5,1,3,4,5,7,9,12,13 
118 LIM=2231T2=3.14159x2/LIMICOL=33E1=13DIM D(LIM,2) 
120 GOSUE 15004FOR V=1 TO LIM!T=T+T23G0OSUB 15004NEXT V 
400 GOTO 1000 
=705 

500 FOR ge TO 83FOKE REG,C(X) SREG=REG+1YIF REG>712 THEN REG=705 
510 NEXT XSREG=REG+1:IF REG>712 THEN REG=705 
520 FOKE 77,0:3G0T0 500 
1000 REM 
1005 FOR E=1 TO 104E2=INT(E/2-0,5) 
1010 FOR R=Ei TO Ei+E24CKR=8-COLFIF CR=0 THEN CR=8 

5 V=03COLOR CRIGOSUE 2000?PLOT X,Y 
1020 FOR V=1 TO LIM}T=T+T23G0SUB Z0005DRAWTO X,Y+IF V>=LIM/2 THEN COLOR COL 
1025 NEXT VSNEXT R3COL=COL+13IF COL=9 THEN COL=1 
1030 E1i=E1+INT(E/2+0.5):NEXT E 
1200 GOTO 490 
1500 D(V,A)=SIN(CT)ID(V,2)=COS(T) RETURN 
2000 X=t30-R)x0 ,6*xD(V,1)+404 Y=40xD (V,2)+B0 RETURN 


0 REM COFYRIGHT ATARI 

10 REM DEMO GR, 9-11 

80 ? "MODE (9-11)"33INPUT MODEILIM=1SIGRAFHICS MODE 

90 IF MÜDE=9 THEN FÜKE 712,128:G0T0 115 

95 IF MODE=11 THEN FOKE 712,10:60T0 115 

100 FOR I=704 TO 7123READ RIFOKE I,Rx16+81NEXT IiLIM=8 
105 DATA -,5,12,13,14,15,1,2,3,4 

115 FOR X=1 TO LIM 


120 COLOR X:POKE 765,X3FLOT Xx4+5,03DRAWTO XX4+5,159 PLOT Xx4+1,1593 POSITION Xx4 


+1,0?XI0O 18,#6,0,0,"82"3NEXT X 
150 GOTO 150 
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INPUT OUTPUT — EINGABE AUSGABEN 


Befehle und Medien 


In diesem Kapitel sollen die Ein- und Ausgabeoperationen beschrieben 
werden. Aufbau, Anschluss und Bedienung der peripheren Geräte 
finden Sie in den dazugehörenden Handbüchern. 


Der Dialog zwischen den einzelnen Medien erfolgt über das “zentrale 
Ein- und Ausgabe-Untersystem‘' (Central Input/Output [ CIO ] sub- 
system) kurz CIO genannt. Dieses ermöglicht dem Anwender den 
Dialog mit den Medien über eine einzige Schnittstelle und in einer von 
‚den Medien verhältnissmässig unabhängigen Weise zu gestalten. 


In der Praxis bedeutet das folgendes: Der Ein- und Ausgabebefehl 
besteht aus zwei Teilen. Der erste Teil, der Medien unabhängige Teil, 
spezifiziert ob ein Lesebefehl oder ein Schreibbefehl vorliegt, und in 
welchem Format der Datenfluss erfolgen soll. 


Der zweite Teil beinhaltet den Kennbuchstaben des anzusprechen- 
den Mediums (z. B. “E: für Editor oder “P: für Drucker). Voraus- 
setzung für den Dialog mit den Medien ist, dass sie durch einen “OPEN” 
Befehl für die Ansprache freigegeben werden und einen bestimmten 
Kanal (1-7) für den Datenfluss zugewiesen bekommen. 


Dieser Kanal wird durch ein weiteres Untersystem IOCB (Input-Out- 
put Control Block) genannt, für den Dialog vorbereitet. Danach braucht 
man das entsprechende Medium (Recorder, Disk, Printer etc.) nur 
noch mit der Kanalnummer (#1 — 7) anzusprechen. 


Die Befehle haben folgendes Format: 


OPEN # A,B,C,D 
CLOSE # A 
A = Kanalnummer (1-7, das # Zeichen muß davor stehen) 


B = Kennummer. Sie bestimmt die Art der Operation. 
z.B. 4=lesen 


8 = ausgeben 
12 = lesen und ausgeben 
9 = Ausgabebefehl zum Ergänzen von Dateien. 
Weitere Angaben siehe Basicreferencemanual. 
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C = Zusatzkennung (in den meisten Fällen null). 
D = Kennbuchstabe des Mediums (z.B. ’’C:) 


Eine Datei auf DISK (Magnetplatte) würde man folgenderweise an- 
sprechen: 


“D2:ATARI800.BAS“ 


Kennbuchstabe der % mögl. Verlängerung 
Plattenstation (1-4). 

Kein “MUSS” steht Punkt nötig falls Ver- 
nichts da, wird 1 längerung benützt. wird. 
angenommen. 


nötiger Doppelpunkt 
Dateiname (bis zu 8 Zeichen lang; muß mit einem Buchstaben anfangen.) 


Anmerkung: 
Mit dem Programmrecorder sind keine Dateinamen möglich. 


Beispiel: 
10 OPEN # 2,8,0, "DZSATARIBO0.EAS" 
oder 
10 DIM A$(15) 3A$="DZHATARIBON .BAS" 
20 DFEN # 2,8,A$ 


IZEZEZEZ ZZ 


90 CLUSE #2 


Als Ausführungsbefehle stehen zur Verfügung: PUT GET PRINT INPUT 
(siehe auch Basicreference Manual) 


Das ATARI Basicmodul kontrolliert 8 Bereiche im Arbeitsspeicher des 
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Computers (RAM), welche dem Betriebssystem die nötigen Infor- 
mationen für die Ein- oder Ausgabeoperationen übermitteln. Zu diesen 
Informationen gehören der Befehl, Pufferlänge, Pufferadresse und 
zwei zusätzliche Kontrollvariablen. Die IOCB-Kanäle werden vom 
BASIC vorbereitet, aber der Anwender muß spezifizieren, welchen 
Kanal er für welche Medium benützen möchte. 


IOCB #0 wird vom BASIC für den Schirmeditor reserviert. Ein Graphik- 
befehl reserviert IOCB#6 für die Ein- oder Ausgabe mit dem Bild- 
schirm. (Gemeint ist hier das Graphikfenster ”'S:). 


IOCB Kanal #7 wird vom BASIC für die Befehle LPRINT, CLOAD, 
und CSAVE benützt. 


Kanal #0 darf nicht benützt werden. Sollten Sie Kanal #7 belegen, 
verhindert dies die Ausführung der auf diesem Kanal normalerweise 
durchgeführten Ein- und Ausgaben (z. B. LPRINT etc.). Die IOCB 
#1 bis #5 können vom Anwender nach eigenen Wünschen belegt 
werden. 


(”K:) Keyboard = Tastatur 

(“P:) Line Printer = Drucker 

[GH Program-Recorder = Kassettenrecorder 
(D1-4:) Disk Drive = Plattenlaufwerke 1—4 
(“E:) Screen Editor = Texteditor 

(“S:) TV Monitor = Bildschirm 


(“R1-4:) RS 232 = Serielle Schnittstelle (Modem 850) 


Nach dieser reichlich theoretischen Betrachtung nun zur Praxis. 
Der Dialog mit dem Kassettenrecorder. 


Mit dem ATARI Kassettenrecorder können Sie Programme und Daten 
abspeichern und auch wieder in den Arbeitsspeicher (RAM) zurück- 
lesen. Ausserdem dient er dazu, die auf der zweiten Spur mögliche 
Sprache oder Musik über den Fernsehmodulator des Computers wieder- 
zugeben. 


Die Ausgabe oder das Lesen werden von Ihrem Computer durch Töne 
(Buzzer) angekündigt. (1 Ton für Lesen — PLAY Taste drücken und 
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dann "RETURN‘’ oder 2 Töne für Ausgabe — PLAY und RECORD MWISTYG:; ENTER “C: Die Daten wer-- Abspeichern und 


Taste drücken und dann “RETURN, Näheres finden Sie in Ihrem den im Text- Lesen von Pro- 
Handbuch für die Bedienung Ihres Cassettenrecorders. format grammen. Beim 
LIST“C:,10,90 (ATASCII) über- Lesen bleibt ein 
Es stehen folgende Befehle zur Verfügung: tragen, d.h.der i. Arbeitsspeicher 
(Zeile 10-90) Rechner be- befindliches Pro- 
handelt die Pro- gr. ungelöscht. 
Ausgabe Befehl Lesebefehl Datenformat Anwendung en RR re PR 
Langer Abstand den aber vom 
j zwischen den neuen Programm 
CSAVE CLOAD Daten werden Abspeichern und Datenblöcken. überschrieben. Er- 
in einem vom lesen | gänzen von Pro- 
z.B. CSAVE z.B. CLOAD Basicmodulge- von Programmen MPAGETIENT: TEILE a0 
schaffenen gespeicherten Pro- 


gr.-teillen. Oder 


od. 100 CSAVE 100 CLOAD Zwischencode Abspeichern eines 


übersetzt und so noch nicht fehler- 
platzsparend ab- freien Progr. 
gespeichert. OPEN#2,8,0,''C: OPEN#2,4,0,''C: 
Kurzer Abstand PUT #2,A GET #2,A BYTEweise Zum Abspeichern 
zwischen den ein- Übertragung und Lesen von 
zelnen Daten- Daten 
blöcken. PRINT #2,A8 INPUT #2,A$ Datenblock- 
weise Über- 
SAVE °C: LOAD ’'C: Wie oben, nur Abspeichern und tragung 
kurzer Abstand Lesen von Pro- A=numerischer Wert A$=alphanumerischer Wert 
zwischen den grammen (128 BYTE) 
Datenblöcken. (0—255) (Zeichen) 
RUN’C: Lesen und auto- 


matisches Starten 
eines Programmes 
Als letzte Zeile in 
einem Programm 
dient es zum 
Aneinanderreihen 
von Programmen 
oder Programm- 
teilen. 


410 411 


Auch Sie brauchen ELCOMP! 


1. Jhramg Volume 1 September 1978 DMIS Sera os» 


Mieracomputer Grundkari 
ELCOMP Software Shop 


North‘Star Harızon Computer 
Software fur 2 80 Syiteme 
Selbsrbascomputer mın 2.80 
Bauanseitung ter nın eigener 
Mierocmpstersyitem, Teil 1 
8085 Microcomputer-KIT 
Microcampater Anwendung ım Kitın 
betneb 

5.109 Bus Adapter für PET 2001 
Endy Ein neurs Mierocompwter 
Syıtem ma 2.80 

Hauskauf mn BASIC 
Heımeomputer Vergleschsliste 
BASIC- Programm FACTORS 
Der 5.106 Bun (Beschreibung) 


SOFTWARE NEUHEITEN 


51 Wiebe Programme har den PET 


Jahresabonnement DM 59,-- 
52 Sotmmare Kır 8080/2 80/6800 Syiteme 


incl. Mwst. und Versand. 3 Monmererechenne 
53 AldCompster von Rockwell 
54 Ermertenn Sie Ihren KIM I 
Hefte zu ee 


Zurückliegende 


Originalpreisen noch verfüg- 
bar. 





HOFACKER-VERLAG 

Ing. W. Hofacker GmbH 

Tegernseer Straße 18 

D-8150 Holzkirchen/Obb. 


Die Fachzeitschrift für MICROCOMPUTER 
Eine unentbehrliche Informationsquelle für alle Elektroniker 





Neue Produkte 

Betriebssysteme für Floppys 
Programmiertechniken 
Software-Quellen 

Programmierbeispiele 

Soziale Aspekte der Microcomputer- 
technik 

Technologische Neuheiten 
Anwendungen in der Meß- und Regel- 
technik 

Anwendungen bei Funk-Amateuren 


Microcomputer-Anwendungsbeispiele 
Künstliche Intelligenz 
Block-Strukturierte Programme 
Datenverarbeitung im Kleinbetrieb 
Club-Neuheiten 

Computer und Kunst 

Musik mit dem Computer 

Monitore für 8080, 6800, 6502, Z 80, 
SC/MP, 2650, 1802 
Eigenbau-Computersysteme 
Interface-Techniken 

Microcomputer KITs 


ELCOMP —INHALTSVERZEICHNISSE 


Inhaltsverzeichnis der zurückliegenden 
ELCOMP - Hefte 


Nr. 1 September 1978 


Symbole 

Microcomputer Grundkurs 

North-Star Horizon Computer 

Software für Z 80 Systeme 

Selbstbaucomputer mit Z 80 Bauan- 
leitung für ein eigenes Microcomputer- 
System, Teil 1 

8085 Microcomputer-KIT 

Microcomputer-Anwendung im Kleinbe- 
trieb 

$-100 Bus Adapter für PET 2001 

Exidy - Ein neues Microcomputer- 
System mit Z-80 

Hauskauf mit BASIC 

Heimcomputer-Vergleichsliste 

BASIC-Programm FACTORS 

Der S-100 Bus (Beschreibung) 

Viele Programme für den PET 

Software für 8080/Z-80/6800 Systeme 

AIM-Computer von Rockwell 

Erweitern Sie Ihren KIM-1 

Der VIM-1 ist da 


350 DM 


Nr.2 Oktober 1978 

Microcomputer Grundkurs 

Wie lernt man BASIC 

TINY BASIC, klein aber oho 

Selbstbaucomputer Z 80, S-100 RAM- 
Karte 

Supermonitor für den PET 

Die Silicon Valley Story 

Programmierung von Bewegungsabläufen 

TRS-80 Microcomputer des Monats 

Ein IK-Monitor für Z-80 (Betriebssystem) 

Musik für den PET 

Microcomputer Lexikon 

Ein Monitor für 6502 

Breackpoint-Routine 

Joystick Programmierung 

Microchess 

Ein leistungsfähiger Monitor für den PET 

BASIC Plus 

Messeberichte 

Personal Computing 


350 DM 


Nr.3/4 _Nov./Dez. 1978 

Graphik mit dem PET 

Wie lernt man BASIC, Teil Il 

Preiswertes Datenerfassungssystem mit 
Scampi 

IPS - Die Programmiersprache der Nach- 
richtensatelliten f. Funkamateure 

Apple Il - Microcomputer d. Monats 

PSI - Ein komfortables Programmsystem 

Ein linearer Joystick für PET 

NASCOM 1 

KIM-1 wird noch leistungsfähiger 


8,00 DM 


Fädeltechnik für Elektroniker 

Neues SC/MP Microcomputersystem 

Microcomputer-Lexikon 

Silicon-Valley-Story, Teil II 

Biorythmus 

2-80 Selbstbaucomputer Ein-/Ausgabe- 
platine 

Drucker für SC/MP 

S-100 Bus Mutterplatine 

Messebericht WESCON 

Industrie und Personal Computer EXPO 

Nr. 1 Januar 1979 350 DM 

Bubble-Speicher von Rockwell 

Programmiertricks für PET 

Cumputerspiele 

Programmierexperimente für PET 

Wie lernt man BASIC, Teil Ill 

ASCII - Selbstbautastatur 


PASCAL 
Biorythmus für PET 
Microstar - Microcomputer d. Monats 


2-80 Selbstbaucomputer - Bauanleitung 
für ein eigenes Microcomputersystem, 
Teil 4- EPROM-Karte 

APL für Z-80 

TINY-BASIC f. NASCOM-1 

Floppy Disk für Apple II 

PROTEUS III 

4k C MOS RAM 


Nr.2 Februar 1979 

Computer-Musik 

Wie lernt man BASIC, Teil IV 

Kraftstoffverbrauch und Computer 

Löschen des Speichers beim 8080/8085 

Dual-Joystick für den PET 

Was der Elektronik-Fachhändler über 
Microcomputer wissen muß 

Spielen Sie Lotto ? 

Einfache Programmorganisation für PET 

Ein-/Ausgabeprogrammierung mit PET 

16-Bit-Microprocessoren 

Schaltregler für Microcomputer 

Einfaches Statistikprogramm für PET 


450 DM 


Bereits vergriffen ! 
Nr, 3 März 1979 450 DM 
Challenger IP und Superboard II 


ATARI-Computer 

Suchlauf 

SC/MP-Programm BINBCD 
Sprungentfernung bei relativer Adres- 
sierung 

Laufzeitreduzierung b. BASIC-Interpreter 
Heimcomputer und Bildungswesen 
Lernen für die Anwendung von Micro- 
Prozessoren 

Umwandlung von BCD-Code in 7-Seg- 
ment-Code 

Microcomputer des Monats: MSI 6800 
von Midwest Scientific Instruments 


Wie lernt man BASIC, Teil V 
S.100 Adapter für TRS-80 
Computer-Musik 


Nr. 4 April 1979 450 DM 
KIM-Software - Es leber der KIM-1 
Disassembler und Editor für KIM-1 
CAI Computer Assisted Instruction 
Optimieren Sie Ihre Programmiertech- 
nik 
Jetzt kommen die Roboter 
Zeilenveränderungsprogramm f. PET 
Was ist eine Computersprache 
Messebericht Consumer Show in Las Vegas 
Dreidimensionale Graphik mit dem PET 
Wie lernt man BASIC, Teil VI 


Nr,5 Mai 1979 450 DM 

Adressenverwaltungssystem KARTEI 

JANA - ein neuer Monitor für den PET 

Experimente für Anfänger mit KIM-1 

TANDY TRS-80 Level Il 

4k RAM-Erweiterung für KIM-1, SYM-1 
oder AIM 

2-80 System auf Europakarten 

Microcomputer für den Geschäftsbereich 

Zufallsgraphik 

Wie lernt man BASIC, Teil VII 


Nr. 6 Juni 1979 450 

ELCOMP-Leserumfrage 

2-80-KIT Tips 

Wie lernt man BASIC, Teil VIII 

Minidiskette für TRS-80 

Preiswerter Drucker für den Microcom- 
puteranwender 

Computer-System 79 

Schrittmotoransteuerung mit SYM-1 

Wie baue und programmiere ich einen 
Joystick? 

Assembler für SC/MP 

Starten mit SYM-1 

Displayanzeige mit dem SYM-1 


Nr.7/8 Juli/August 1979 

Die neue TRS-80 Überraschung 

6502 hat Zukunft 

Grenzüberwachung 

NASCOM-1 mit TINY BASIC 

BASIC-Vergleichstabelle 

Der SORCERER Computer 

Interview mit dem geistigen Vater der 
TRS-80 Familie 

Der neue Heathkit-Computer 

Microchatter 

Wie lernt man BASIC, Teil IX 

Die Hardwarestruktur des ELZET 80 

Was ist ein Wortverarbeitungssystem? 

Computersystem CONDOR 

Computerspiele in BASIC 

PILOT 


9,00 DM 





Ein einfaches PROM-Programmiergerät 
Ein-/Ausgabeprogrammierung mit PET 
Erweiterung für NASCOM-1 

Lernen für die Anwendung von Micro- 
processoren 


Nr.9 September 450 DM 

Tips für den BASIC-Programmierer 

Wie lernt man BASIC, Teil X 

EUROCOM-1 

Michrochatter 

Die neuen ROMs im CBM 

Neue Publikationen 

Speichererweiterung für den PET 

Musikprogramm für den NASCOM-1 

Computersystem 79 

Umschalten des Bildschirms auf Breit- 
schrift beim TRS-80 Level | 

Vergleich dreier Zahlen 

ELCOM-Leserbriefe 

Diskettenpower APPLE II 

Neuer Einplatinencomputer von Motorola 

Einstellung der Tonspur beim PET 


Nr. 10 Oktober 1979 450 DM 

Ein-/Ausgabeprogrammierung mit dem 
TRS-80 

Texas Instruments stellt seinen Heim- 
computer vor 

Microchatter 

Wie lernt man BASIC, Teil XI 

Der MZ-80 von Sharp 

Microcomputer als Hobby 

Ein komplettes Textverarbeitungssystem 
mit CBM-Computer u. Heathkit-Drucker 

Wer ist OHIO SCIENTIFIC ? 

KURDIS - Ein Programm zur Kuren- 
diskussion 

BASIC im Unterricht 

Monolithischer 8 Bit Analog/Digital- 
Wandler 

Band-Test 

Nr. 11/12  Nov./Dez. 1979 9,00 DM 

Jetzt kommt PASCAL 

Aus der PET-Modulkiste 

HISTORGRAMM 

32k RAM Zusatzspeicher f. PET 2001 

Exidy Sorcerer 

Kleinschrift und Verbesserung des Video- 
RAMs beim TRS-80 

Filmkamerasteuerung mit PET 

Anschluß eines Floppy-Disk-Controllers 
an 6500 Microprozessoren 

Anschluß eines Baudot-Fernschreibers an 
einen Microcomputer 

Ein Besuch bei ATARI 

Kalender 

Ein wenig Trigonometrie 

Berechnen der Kreiszahl 

Der NASCOM-2 ist da 

PET als IC-Tester 

Das NIM-Spiel und was es damit auf sich 
hat 

Linking Loader für PET 2001 (8k) 

MEMDMP-Hex Dump- Programm für 
6502 Systeme 


KIM-1 schreibt auf Skop 
IRRGARTEN 

KIM-Orgel 

Lichtgriffel 

Meldeton für PET 

Preiswerter Drucker f. NASCOM-1 
Wie lernt man BASIC, Teil XII 


Bereits vergriffen ! 


Nr.1 Januar 1980 450 DM 

Microcomputer-Software und Vernunft 

TRS-80 als “elektronisches Kurvenlineal” 

Schrottknüppel 

Programmbeschr.: FLAG OPERATION 

Aus der PET-Modul-Kiste 

Alternatives TINY-BASIC für den TRS-80 
unter Level 1 

Programmtricks APPLE II 

NEU!!! Einführungskurs: Programmieren 
in Maschinensprache auf Z-80 

Programmiertrick für TRS-80 

Eine professionelle Analogschnittstelle 

GRAPHSYS 

Wie lernt man BASIC, Teil XIII 

Programmierhilfen f. NASCOM-1 

SUMA 85 (Selbstbausystem) 

Automatische Zeilennummerierung für 
PET 

ULTRA-MON-CBM Bedienungsanleitung 

Entwicklungsboard f. AmZ8000 

ELTRO-HOBBY 79, der große Renner 


Nr.2 Februar 1980 450 DM 

“Echte” Großschrift beim TRS-80 

BASIC-Programme - kürzer und schneller 

Datenlogger BASIC - Programmierbar 

EPROM-Programmiergerät für PET 

HIGH-Resolution-Graphic auf dem 
APPLE II 

Wie lernt man BASIC, Teil XIV 

Der T-Programmer 

SUMA 85 

Programmieren in Maschinsprache mit 
2-80 

PET-Petits 


Nr.3 März 1980 450 DM 

Der Personalcomputer von HP ist da 

Lernen mit dem AIM, Teil 1 

Die neuen CBM-Modelle 

SUMA 85, Teil 3 

Programmieren in Maschinensprache mit 
2-80, Teil 3 

Maschinencodemonitor in TINY-BASIC 

PET-Petits 

Was ist Datenschutz? 

Monitorprogramm für SC/MP 

Wie lernt man BASIC, Teil XV 

Quadratische Gleichungen 

Wer ist Jim Butterfield? 


Messebericht: Comsumer Electronics 
Show 

Der PC-100 

Nr.4 April 1980 450 DM 


Grundlagen der Finanzbuchhaltung für 
den Microcomputeranwender 


SUMA 85, Teil 4 

Messebericht: Hobbytronic Dortmund 

Berechnung ganzrationaler Funktionen 

Aus der PET-Modulkiste 

SDS-100 MicroMini 

Erstes Home-Computer-System von TI 

Programmieren in Maschinensprache mit 
2-80, Teil 4 

PRINT USING für X80 und PET 

Microchatter 

Wie lernt man BASIC, Teil XVI 

PET Petits 

Grafik mit dem Superboard 

Untersuchen von Texten auf die Häufig- 
keit des Auftretens einzelner Buch- 
staben 

Zum lernen ideal.... 

Hochinteressante Interviews 


Nr.5 Mai 1980 

Aus der PET-Modul-Kiste 

280-Disassembler für den NASCOM 

Implementierung einer REAL-TIME- 
CLOCK 

SUMA 85, Teil 5 

Programmieren in Maschinensprache mit 
2-80, Teil5 

Lernen mit AIM, Teil Il 

AIM 65 hilft im Büro 

Protokollieren von TRS-80 Bildschirm- 
ausgaben 

Wie lernt man BASIC, Teil XVII 

West Coast Computer Faire 

Der HY Q-1000 

Der BASE> Drucker 


450 DM 


Nr.6 Juni 1980 450 DM 

Die einfache Verkettungstechnik 

Programmieren in Maschinensprache mit 
2-80, Teil 6 

Lernen mit dem AIM, Teil 3 

Microcomputer Fools Corner 

Challenger C4PMF Microcomputer 

SUMA 85, Teil 6 

Wie lernt man BASIC, Teil XVII 

TINY-FORTH für TRS-80 Level Il, 16k 

CBM-Disk BASIC Version 4.0 

Heathkit - Matrixdrucker / Erfahrungs- 
bericht Ds 

Monostabile Kippstufen 

5. West Coast Computer Faire 

Hex-DUMP in BASIC für Superboard 

Michrochatter 
ELCOMP ist in der Micro- 
computer-Berichterstattung 
immer vorne, 
Keiner, der mitreden will, 
kann es sich noch leisten, 
ELCOMP nicht zu lesen! 
Bestellen Sie deshalb heu- 
te alle noch verfügbaren Hefte 
und sichern Sie sich ELCOMP 
im Abonnement für die Zu- 
kunft. 


| Menge | Artikelbezeichnung Einzelpreis 


Hiermit gebe ich folgende Bestellung unter Anerkennung 
Ihrer Lieferungs- und Zahlungsbedingungen auf. 








_, Artikelbezeichnung 








Unterschrift (für Jugendliche unter 18 J. der Erziehungsberechtigte) 


km | m m ee ee TE 


Datum 


BESTELLKARTE für ein ELCOMP-Abonnement 


Auslands-Abonnement (Europa) + DM 10.-- Versandkosten 


OO 00000 


Bitte senden Sie mir ab sofort alle künftigen Ausgaben der ELCOMP., Preis DM 59,-- 
pro Jahr incl. Versand und Verpackung. Lieferung ab Ausgabe............. 


Bitte senden Sie mir alle bereits erschienen Ausgaben zum Sonderpreis 
DM 37,-- (Sept. 78 — Okt. 79, außer Nr.3/4 1978, Nr. 2, 4,11/12 1979) 


Jahrgang 1980 DM 49,— 


Ich bezahle im voraus für..........Jahrle) DM................., Pschk. München 15994807, 
Dresdner Bank München Kto. 5390 370, BLZ 700 800 00. 


Ich bitte um Lieferung auf Rechnung. 


Ich bitte um Abbuchung von meinem Konto (Giro od. Postscheckkonto) 





ET EFF TH II TREE II ETT 


Straße / Hs-Nr. 


‚KR BE TR a RR RD TR 
PLZ rt 


Absender 
Bitte deutlich ausfüllen 


Vorname/Name 
Beruf 
Straße/Nr. 


Piz Ort 


Telefon 


Das Abonnement wird automatisch verlängert 
(Kündigung 8 Wochen z. Abonnement-Ablauf) 


POSTKARTE 


MIKROCOMPUTER BOOK STORE 


Tegernseerstr. 18 
D-8150 Holzkirchen /Obb. 


Ing. W. Hofacker GmbH 
Tegernseer Straße 18 


D-8150 Holzkirchen 





ENDLICH ANGEKOMMEN 
ATARI PERSONAL COMPUTER SYSTEM 


ATARI 400 (16K) und ATARI 800 (bis 48K) sind 
das Herz des kompletten Personal Computer 
Systems. Color-PAL-Signal für jeden Fernseher. 
6502 Mikroprozessor. Grafik, Sound und über 
160 Farben. Programmiersprachen BASIC, 
PASCAL, PILOT und ASSEMBLER-EDI- 
TOR. ROM-Programm-Module. Disk- 
Drives, Drucker, Programm-Recorder, 
Interface, Light Pen, Joysticks üsw. 

als geprüftes ATARI-Zubehör. 
Umfangreiche ATARI-Soft- 
ware-Bibliothek. 

Lieferung nur über den 
qualifizierten Fachhandel. 








A Warner Communcatons Company 








Fordern Sie jetzt ausführliche Informationen an! 
Name: 


Berut 





Straße 





PLZIOR: 





‚| geplanter Einsatzbereich 


OBeruft DIHobby lAusbildung EI Unterhaltung 


‚Atarı Elektronik Vertriebsgesellschaft mbH 
Bebelallee 10 2000 Hamburg 60 





Computers for people 


Machen Sie Ihr Hobby zum Beruf. 


Atari sucht „Computer-Freaks” als Mitarbeiter. 







Für viele Bereiche. 
Schreiben Sie an 
Herrn Ollmann. 


Verlagsprogramm 


Best.-Nr. 

Bücher in deutscher Sprache 
Transistor Berechnungs- u. Bauanleitungsbuch — 1 
Transistor Berechnungs- u. Bauanleitungsbuch — 2 
Elektronik im Auto 
IC-Handbuch, TTL, CMOS, Linear 
IC-Datenbuch, TTL, CMOS, Linear 
IC-Schaltungen, TTL, CMOS, Linear 
Elektronik Schaltungen 
IC-Bauanleitungs-Handbuch 
Feldeffekttransistoren 
Elektronik und Radio 
IC-NF Verstärker 
Beispiele Integrierter Schaltungen (BIS) 

HEH, Hobby Elektronik Handbuch 
IC-Vergleichsliste 

Optoelektronik Handbuch 

CMOS Teil 1, Einführung, Entwurf, Schaltbeispiele 
CMOS Teil 2, Entwurf und Schaltbeispiele 
CMOS Teil 3, Entwurf und Schaltbeispiele 
IC-Experimentier Handbuch 
Operationsverstärker 

Digitaltechnik Grundkurs 

Mikroprozessoren, Eigenschaften und Aufbau 
Elektronik Grundkurs, Kurzlehrgang Elektronik 
Microcomputer Technik 

Hobby Computer Handbuch 

Mikroprozessor, Teil 2 


oo 2wn— 


Mikrocomputer Software Handbuch 

Lexikon + Wörterb, f. Elektr. u. Mikroprozessor LEM 
Mikrocomputer Datenbuch 
Aktivtraining-Mikrocomputer 

57 Programme in BASIC 

ATARI BASIC Handbuch 


Microcomputer Programmierbeispiele 
TINY-BASIC Handbuch 

Der freundliche Computer 

CB-Handbuch 

[OrFAllfet: Te: 1elal:TaHlmr:Iateloy8Teia) 

1000 Elektronik Schaltungen 

Praktische Antennentechnik 

SC/MP Mikrocomputer-Handbuch 

6502 Microcomputer Programmierung 
Programmierhandbuch für PET 

Programmieren mit TRS-80 

RT NE Ten Te luluitieinkiaeloi6ten 
BASIC-Programmier-Handbuch 

Der Microcomputer im Kleinbetrieb 

FOCAL Programmier-Handbuch 

Einführung 16-Bit Microcomputer 

FORTRAN für Heimcomputer 

Programmieren in Maschinensprache mit dem 6502 
Programmieren in Maschinensprache (Z80) 
Anwenderprogramme für TRS-80 u. Video Genie 


Preis DM 


19,80 
19,80 

9,80 
19,80 

9,80 

9,80 

5,00 
19,80 

5,00 
19,80 

9,80 
19,80 

9,80 
29,80 
19,80 
19,80 
19,80 
19,80 
19,80 
19,80 
19,80 
19,80 

9,80 
29,80 
29,80 
19,80 
29,80 
29,80 
49,80 
49,80 
EeHılı) 
29,80 
19,80 
19,80 
29,80 
19,80 
19,80 
49,00 
19,80 
29,80 
29,80 
29,80 
29,80 
29,80 
ER:1ı) 
39,80 
19,80 
29,80 
19,80 
49,00 
49,00 
Pr: 


EERSSNTZ Preis DM 


121 Microsoft BASIC-Handbuch 
122 BASIC für Fortgeschrittene 
123 IEC-Bus Handbuch 
124 Programmieren in Maschinensprache mit CBM 
127 Einf. indie Microcomp.-Progr. mit 6800 
128 Programmieren mit dem CBM 
129 ELCOMP-Leser Programmierhandbuch 
130 Programmierbeispiele für CBM 
131 Cobol für Anfänger 
132 CP/M-Handbuch 
133 Welches Betriebssystem brauche ich? 
Bücher in englischer Sprache 
150 Care and Feeding of the Commodore PET 
151 8Kk Microsoft BASIC Reference Manual 
152 Expansion Handbook for 6502 and 6800 
153 Microcomputer Application Notes 
154 Complex Sound Generation using the SN76477 
155 The First Book of 80-US (TRS-80) 
156 Small Business Programs 
157 The First Book of Ohio Scientific 
158 The Second Book of Ohio Scientific 
159 The Third Book of Ohio Scientific 
160 The Fourth Book of Ohio Scientific 
161 The Fifth Book of Ohio Scientific 
162 ATARI Games in BASIC 
163 The Peripheral Handbook 
255 Programmierbeispiele mit TRS-80 Pocket 
1045 The Programers Guide to LISP 
1050 The Most Popular Subroutines in BASIC 
LKOL-JCH NV ITeZeTolgetei-trZelgtofeTel.goTeTe]. 
1055 The BASIC Cookbook 
1062 The A to Z Book of Computer Games 
1070 Digital Interfacing with an Analog World 
TA TeLe Tu Tell-i CH nF laleloTeleli@ter @latelorerdter) 
1076 Artifical Intelligence 
1085 24 Tested Ready to RUN Game Programs in BASIC 
1088 Illustrated Dictionary of Microcomputer Terminology 
1095 Programs in BASIC for Electronic Engineers 
1099 How to Build Your own Working 16-Bit Microc. 
1141 How to Build Your own Working ROBOT PET 
1160 1001 Thingsto do with Y.P.C. 
1169 The Giant Book of Computers 
8029 Z-80 Assemblerhandbuch 
8042 6500 Software Manual 
teloL. ke HT o7s1el0H z ETZeNVETGCHUETRET 
8048 BASIC Software Vol. VI 
8049 BASIC Software Vol. VII 
8050 BASIC Software Vol. | 
8051 BASIC Software Vol. II 
8052 BASIC Software Vol, Ill 
8053 BASIC Software Vol. IV 
8054 BASIC Software Vol. V 
8063 M6800 Programmierhandb. 


Ing.W.HofackerGmbHVerlag 8München 70 





